/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / DATABASE / ADDRESSBOOK / !AddressBk_!RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 14 f4 20 3e 20 | 24 2e 41 64 64 72 65 73 |..... > |$.Addres|
|00000010| 42 6f 6f 6b 0d 00 0a 1a | f4 20 41 64 64 72 65 73 |Book....|. Addres|
|00000020| 73 20 26 20 50 68 6f 6e | 65 20 42 6f 6f 6b 0d 00 |s & Phon|e Book..|
|00000030| 14 24 f4 20 69 6e 20 41 | 72 63 68 69 6d 65 64 65 |.$. in A|rchimede|
|00000040| 73 20 57 69 6d 70 20 45 | 6e 76 69 72 6f 6e 6d 65 |s Wimp E|nvironme|
|00000050| 6e 74 0d 00 1e 11 f4 20 | 56 65 72 73 69 6f 6e 20 |nt..... |Version |
|00000060| 32 2e 34 0d 00 28 24 f4 | 20 28 63 29 20 41 6c 65 |2.4..($.| (c) Ale|
|00000070| 78 20 48 6f 70 6b 69 6e | 73 20 44 65 63 65 6d 62 |x Hopkin|s Decemb|
|00000080| 65 72 20 31 39 38 38 0d | 00 32 05 3a 0d 00 3c 0a |er 1988.|.2.:..<.|
|00000090| f2 73 65 74 75 70 0d 00 | 46 18 c8 99 20 22 57 69 |.setup..|F... "Wi|
|000000a0| 6d 70 5f 49 6e 69 74 69 | 61 6c 69 73 65 22 0d 00 |mp_Initi|alise"..|
|000000b0| 50 2a c8 99 20 22 57 69 | 6d 70 5f 46 6f 72 63 65 |P*.. "Wi|mp_Force|
|000000c0| 52 65 64 72 61 77 22 2c | 2d 31 2c 30 2c 30 2c 31 |Redraw",|-1,0,0,1|
|000000d0| 32 37 39 2c 31 30 32 33 | 0d 00 5a 43 57 69 6e 64 |279,1023|..ZCWind|
|000000e0| 6f 77 25 28 30 29 3d a4 | 63 72 65 61 74 65 57 69 |ow%(0)=.|createWi|
|000000f0| 6e 64 6f 77 28 22 54 49 | 54 4c 45 22 2c 26 30 30 |ndow("TI|TLE",&00|
|00000100| 2c 37 2c 38 2c 37 37 38 | 2c 32 30 34 2c 32 2c 31 |,7,8,778|,204,2,1|
|00000110| 31 32 2c 37 37 36 2c 32 | 30 34 29 0d 00 64 45 57 |12,776,2|04)..dEW|
|00000120| 69 6e 64 6f 77 25 28 31 | 29 3d a4 63 72 65 61 74 |indow%(1|)=.creat|
|00000130| 65 57 69 6e 64 6f 77 28 | 22 49 43 4f 4e 42 41 52 |eWindow(|"ICONBAR|
|00000140| 22 2c 26 34 30 2c 31 32 | 2c 31 32 2c 31 32 38 30 |",&40,12|,12,1280|
|00000150| 2c 39 36 2c 32 2c 34 2c | 31 32 37 38 2c 39 36 29 |,96,2,4,|1278,96)|
|00000160| 0d 00 6e 47 57 69 6e 64 | 6f 77 25 28 32 29 3d a4 |..nGWind|ow%(2)=.|
|00000170| 63 72 65 61 74 65 57 69 | 6e 64 6f 77 28 22 44 49 |createWi|ndow("DI|
|00000180| 53 43 22 2c 26 30 33 2c | 31 30 2c 37 2c 31 32 37 |SC",&03,|10,7,127|
|00000190| 36 2c 38 33 32 2c 37 38 | 38 2c 32 32 30 2c 31 32 |6,832,78|8,220,12|
|000001a0| 37 38 2c 39 38 30 29 0d | 00 78 45 57 69 6e 64 6f |78,980).|.xEWindo|
|000001b0| 77 25 28 33 29 3d a4 63 | 72 65 61 74 65 57 69 6e |w%(3)=.c|reateWin|
|000001c0| 64 6f 77 28 22 52 45 43 | 4f 52 44 22 2c 26 30 33 |dow("REC|ORD",&03|
|000001d0| 2c 31 30 2c 37 2c 37 37 | 38 2c 38 33 32 2c 32 2c |,10,7,77|8,832,2,|
|000001e0| 32 32 30 2c 37 37 36 2c | 39 38 30 29 0d 00 82 44 |220,776,|980)...D|
|000001f0| 57 69 6e 64 6f 77 25 28 | 34 29 3d a4 63 72 65 61 |Window%(|4)=.crea|
|00000200| 74 65 57 69 6e 64 6f 77 | 28 22 46 4f 55 4e 44 22 |teWindow|("FOUND"|
|00000210| 2c 26 30 30 2c 31 30 2c | 37 2c 37 37 38 2c 37 34 |,&00,10,|7,778,74|
|00000220| 30 2c 32 2c 32 32 30 2c | 37 37 36 2c 38 38 38 29 |0,2,220,|776,888)|
|00000230| 0d 00 8c 49 57 69 6e 64 | 6f 77 25 28 35 29 3d a4 |...IWind|ow%(5)=.|
|00000240| 63 72 65 61 74 65 57 69 | 6e 64 6f 77 28 22 53 45 |createWi|ndow("SE|
|00000250| 41 52 43 48 22 2c 26 30 | 33 2c 31 31 2c 37 2c 31 |ARCH",&0|3,11,7,1|
|00000260| 32 37 36 2c 38 33 32 2c | 37 38 38 2c 32 32 30 2c |276,832,|788,220,|
|00000270| 31 32 37 38 2c 39 38 30 | 29 0d 00 96 4a 57 69 6e |1278,980|)...JWin|
|00000280| 64 6f 77 25 28 36 29 3d | a4 63 72 65 61 74 65 57 |dow%(6)=|.createW|
|00000290| 69 6e 64 6f 77 28 22 50 | 52 49 4e 54 45 52 22 2c |indow("P|RINTER",|
|000002a0| 26 30 33 2c 31 30 2c 37 | 2c 31 32 37 36 2c 38 33 |&03,10,7|,1276,83|
|000002b0| 32 2c 37 38 38 2c 32 32 | 30 2c 31 32 37 38 2c 39 |2,788,22|0,1278,9|
|000002c0| 38 30 29 0d 00 a0 4a 57 | 69 6e 64 6f 77 25 28 37 |80)...JW|indow%(7|
|000002d0| 29 3d a4 63 72 65 61 74 | 65 57 69 6e 64 6f 77 28 |)=.creat|eWindow(|
|000002e0| 22 50 41 4c 45 54 54 45 | 22 2c 26 30 33 2c 31 30 |"PALETTE|",&03,10|
|000002f0| 2c 37 2c 31 32 37 36 2c | 38 33 32 2c 37 38 38 2c |,7,1276,|832,788,|
|00000300| 32 32 30 2c 31 32 37 38 | 2c 39 38 30 29 0d 00 aa |220,1278|,980)...|
|00000310| 43 57 69 6e 64 6f 77 25 | 28 38 29 3d a4 63 72 65 |CWindow%|(8)=.cre|
|00000320| 61 74 65 57 69 6e 64 6f | 77 28 22 54 49 4d 45 22 |ateWindo|w("TIME"|
|00000330| 2c 26 30 30 2c 37 2c 31 | 32 2c 37 37 38 2c 32 30 |,&00,7,1|2,778,20|
|00000340| 34 2c 32 2c 31 31 32 2c | 37 37 36 2c 32 30 34 29 |4,2,112,|776,204)|
|00000350| 0d 00 b4 42 57 69 6e 64 | 6f 77 25 28 39 29 3d a4 |...BWind|ow%(9)=.|
|00000360| 63 72 65 61 74 65 57 69 | 6e 64 6f 77 28 22 49 4e |createWi|ndow("IN|
|00000370| 46 4f 22 2c 26 30 30 2c | 37 2c 34 2c 37 37 38 2c |FO",&00,|7,4,778,|
|00000380| 32 30 34 2c 32 2c 31 31 | 32 2c 37 37 36 2c 32 30 |204,2,11|2,776,20|
|00000390| 34 29 0d 00 be 48 57 69 | 6e 64 6f 77 25 28 31 30 |4)...HWi|ndow%(10|
|000003a0| 29 3d a4 63 72 65 61 74 | 65 57 69 6e 64 6f 77 28 |)=.creat|eWindow(|
|000003b0| 22 45 52 52 4f 52 22 2c | 26 30 30 2c 37 2c 37 2c |"ERROR",|&00,7,7,|
|000003c0| 31 32 37 36 2c 34 31 36 | 2c 37 38 38 2c 31 31 32 |1276,416|,788,112|
|000003d0| 2c 31 32 37 38 2c 34 31 | 36 29 0d 00 c8 48 57 69 |,1278,41|6)...HWi|
|000003e0| 6e 64 6f 77 25 28 31 31 | 29 3d a4 63 72 65 61 74 |ndow%(11|)=.creat|
|000003f0| 65 57 69 6e 64 6f 77 28 | 22 45 58 49 54 22 2c 26 |eWindow(|"EXIT",&|
|00000400| 30 30 2c 37 2c 31 32 2c | 31 32 37 36 2c 32 30 34 |00,7,12,|1276,204|
|00000410| 2c 37 38 38 2c 31 31 32 | 2c 31 32 37 38 2c 32 30 |,788,112|,1278,20|
|00000420| 34 29 0d 00 d2 49 57 69 | 6e 64 6f 77 25 28 31 32 |4)...IWi|ndow%(12|
|00000430| 29 3d a4 63 72 65 61 74 | 65 57 69 6e 64 6f 77 28 |)=.creat|eWindow(|
|00000440| 22 44 49 41 4c 4f 47 55 | 45 22 2c 26 30 30 2c 37 |"DIALOGU|E",&00,7|
|00000450| 2c 38 2c 31 32 37 38 2c | 32 30 34 2c 32 2c 31 31 |,8,1278,|204,2,11|
|00000460| 32 2c 31 32 37 36 2c 32 | 30 34 29 0d 00 dc 05 3a |2,1276,2|04)....:|
|00000470| 0d 00 e6 1d f2 6f 70 65 | 6e 57 69 6e 64 6f 77 28 |.....ope|nWindow(|
|00000480| 57 69 6e 64 6f 77 25 28 | 31 29 2c a3 29 0d 00 f0 |Window%(|1),.)...|
|00000490| 05 3a 0d 00 fa 0e ee 20 | 85 20 f2 65 72 72 6f 72 |.:..... |. .error|
|000004a0| 0d 01 04 05 3a 0d 01 05 | 0e 2a 50 4f 49 4e 54 45 |....:...|.*POINTE|
|000004b0| 52 20 31 0d 01 0e 05 f5 | 0d 01 18 13 f2 70 6f 6c |R 1.....|.....pol|
|000004c0| 6c 28 a4 70 6f 6c 6c 28 | 30 29 29 0d 01 22 07 fd |l(.poll(|0)).."..|
|000004d0| 20 a3 0d 01 2c 05 e0 0d | 01 36 05 3a 0d 01 40 0c | ...,...|.6.:..@.|
|000004e0| dd 20 f2 73 65 74 75 70 | 0d 01 4a 42 de 20 62 6c |. .setup|..JB. bl|
|000004f0| 6f 63 6b 20 26 33 30 30 | 2c 44 61 74 61 25 20 31 |ock &300|,Data% 1|
|00000500| 30 33 32 2c 42 69 6e 61 | 72 79 20 38 2c 52 65 64 |032,Bina|ry 8,Red|
|00000510| 25 28 31 39 29 2c 47 72 | 65 65 6e 25 28 31 39 29 |%(19),Gr|een%(19)|
|00000520| 2c 42 6c 75 65 25 28 31 | 39 29 0d 01 54 42 de 20 |,Blue%(1|9)..TB. |
|00000530| 57 69 6e 64 6f 77 25 28 | 31 32 29 2c 77 69 6e 64 |Window%(|12),wind|
|00000540| 6f 77 24 28 31 32 29 2c | 46 69 6c 65 6e 61 6d 65 |ow$(12),|Filename|
|00000550| 24 28 37 37 29 2c 53 77 | 61 70 24 28 31 31 29 2c |$(77),Sw|ap$(11),|
|00000560| 45 72 72 6f 72 4d 73 67 | 24 28 35 29 0d 01 5e 4a |ErrorMsg|$(5)..^J|
|00000570| de 20 4e 61 6d 65 24 28 | 32 35 35 29 2c 41 64 64 |. Name$(|255),Add|
|00000580| 72 65 73 73 24 28 32 35 | 35 2c 36 29 2c 54 65 6c |ress$(25|5,6),Tel|
|00000590| 65 70 68 6f 6e 65 24 28 | 32 35 35 2c 32 29 2c 52 |ephone$(|255,2),R|
|000005a0| 65 6d 61 72 6b 24 28 32 | 35 35 2c 32 29 2c 49 6e |emark$(2|55,2),In|
|000005b0| 66 6f 24 28 32 29 0d 01 | 68 12 de 20 53 65 61 72 |fo$(2)..|h.. Sear|
|000005c0| 63 68 25 28 32 35 35 29 | 0d 01 72 3f 4e 61 6d 65 |ch%(255)|..r?Name|
|000005d0| 24 28 29 3d 22 22 20 3a | 20 41 64 64 72 65 73 73 |$()="" :| Address|
|000005e0| 24 28 29 3d 22 22 20 3a | 20 54 65 6c 65 70 68 6f |$()="" :| Telepho|
|000005f0| 6e 65 24 28 29 3d 22 22 | 20 3a 20 52 65 6d 61 72 |ne$()=""| : Remar|
|00000600| 6b 24 28 29 3d 22 22 0d | 01 7c 48 46 69 6c 65 6e |k$()="".|.|HFilen|
|00000610| 61 6d 65 24 28 29 3d 22 | 22 20 3a 20 46 69 6c 65 |ame$()="|" : File|
|00000620| 4e 6f 25 3d 30 20 3a 20 | 46 69 6c 65 4e 61 6d 65 |No%=0 : |FileName|
|00000630| 24 3d 22 62 6c 61 6e 6b | 22 20 3a 20 50 61 6c 65 |$="blank|" : Pale|
|00000640| 74 74 65 24 3d 22 21 50 | 61 6c 65 74 74 65 22 0d |tte$="!P|alette".|
|00000650| 01 86 47 52 65 63 6f 72 | 64 25 3d 31 20 3a 20 54 |..GRecor|d%=1 : T|
|00000660| 6f 74 61 6c 25 3d 31 20 | 3a 20 46 72 65 63 25 3d |otal%=1 |: Frec%=|
|00000670| 31 20 3a 20 46 6f 75 6e | 64 25 3d 30 20 3a 20 43 |1 : Foun|d%=0 : C|
|00000680| 6f 6c 6f 75 72 25 3d 30 | 20 3a 20 53 65 61 72 63 |olour%=0| : Searc|
|00000690| 68 25 28 29 3d 30 0d 01 | 90 3b 46 69 6c 65 4f 72 |h%()=0..|.;FileOr|
|000006a0| 69 67 25 3d b9 20 3a 20 | 50 61 6c 4f 72 69 67 25 |ig%=. : |PalOrig%|
|000006b0| 3d b9 20 3a 20 46 69 6c | 65 25 3d a3 20 3a 20 50 |=. : Fil|e%=. : P|
|000006c0| 61 6c 25 3d a3 20 3a 20 | 50 72 6f 6d 70 74 25 3d |al%=. : |Prompt%=|
|000006d0| a3 0d 01 9a 32 45 64 69 | 74 25 3d a3 20 3a 20 49 |....2Edi|t%=. : I|
|000006e0| 6e 66 6f 25 3d a3 20 3a | 20 53 65 61 72 63 68 24 |nfo%=. :| Search$|
|000006f0| 3d 22 41 6c 65 78 22 20 | 3a 20 50 72 69 6e 74 24 |="Alex" |: Print$|
|00000700| 3d 22 22 0d 01 a4 21 e3 | 20 41 3d 30 20 b8 20 31 |=""...!.| A=0 . 1|
|00000710| 32 20 3a 20 f3 20 77 69 | 6e 64 6f 77 24 28 41 29 |2 : . wi|ndow$(A)|
|00000720| 20 3a 20 ed 0d 01 ae 34 | dc 20 54 69 74 6c 65 2c | : ....4|. Title,|
|00000730| 49 63 6f 6e 62 61 72 2c | 44 69 73 63 2c 52 65 63 |Iconbar,|Disc,Rec|
|00000740| 6f 72 64 2c 46 6f 75 6e | 64 2c 53 65 61 72 63 68 |ord,Foun|d,Search|
|00000750| 2c 50 72 69 6e 74 65 72 | 0d 01 b8 2b dc 20 50 61 |,Printer|...+. Pa|
|00000760| 6c 65 74 74 65 2c 54 69 | 6d 65 2c 49 6e 66 6f 2c |lette,Ti|me,Info,|
|00000770| 45 72 72 6f 72 2c 45 78 | 69 74 2c 44 69 61 6c 6f |Error,Ex|it,Dialo|
|00000780| 67 75 65 0d 01 c2 13 f4 | 20 4f 53 43 4c 49 20 22 |gue.....| OSCLI "|
|00000790| 55 52 44 20 24 22 0d 01 | cc 24 ff 20 22 50 52 49 |URD $"..|.$. "PRI|
|000007a0| 4e 54 20 3c 41 64 64 72 | 65 73 73 24 44 69 72 3e |NT <Addr|ess$Dir>|
|000007b0| 2e 57 69 6d 70 46 6f 6e | 74 22 0d 01 d6 26 ff 20 |.WimpFon|t"...&. |
|000007c0| 22 53 4c 4f 41 44 20 3c | 41 64 64 72 65 73 73 24 |"SLOAD <|Address$|
|000007d0| 44 69 72 3e 2e 41 64 64 | 72 65 73 53 70 72 74 22 |Dir>.Add|resSprt"|
|000007e0| 0d 01 e0 4c 44 69 72 65 | 63 74 6f 72 79 24 3d 22 |...LDire|ctory$="|
|000007f0| 44 41 54 41 46 49 4c 45 | 53 22 20 3a 20 f2 64 69 |DATAFILE|S" : .di|
|00000800| 72 65 63 74 6f 72 79 28 | 22 3c 41 64 64 72 65 73 |rectory(|"<Addres|
|00000810| 73 24 44 69 72 3e 2e 22 | 2b 44 69 72 65 63 74 6f |s$Dir>."|+Directo|
|00000820| 72 79 24 2c 46 69 6c 65 | 4e 6f 25 29 0d 01 ea 0c |ry$,File|No%)....|
|00000830| eb 20 31 32 20 3a 20 87 | 0d 01 f4 0a f7 20 8d 44 |. 12 : .|..... .D|
|00000840| 4e 42 0d 01 fe 0e e3 20 | 41 3d 30 20 b8 20 31 39 |NB..... |A=0 . 19|
|00000850| 0d 02 08 20 f3 20 52 65 | 64 25 28 41 29 2c 47 72 |... . Re|d%(A),Gr|
|00000860| 65 65 6e 25 28 41 29 2c | 42 6c 75 65 25 28 41 29 |een%(A),|Blue%(A)|
|00000870| 0d 02 12 31 e7 20 41 3c | 31 36 20 8c 20 ef 20 31 |...1. A<|16 . . 1|
|00000880| 39 2c 41 2c 31 36 2c 52 | 65 64 25 28 41 29 2c 47 |9,A,16,R|ed%(A),G|
|00000890| 72 65 65 6e 25 28 41 29 | 2c 42 6c 75 65 25 28 41 |reen%(A)|,Blue%(A|
|000008a0| 29 0d 02 1c 31 e7 20 41 | 3d 31 36 20 8c 20 ef 20 |)...1. A|=16 . . |
|000008b0| 31 39 2c 30 2c 32 34 2c | 52 65 64 25 28 41 29 2c |19,0,24,|Red%(A),|
|000008c0| 47 72 65 65 6e 25 28 41 | 29 2c 42 6c 75 65 25 28 |Green%(A|),Blue%(|
|000008d0| 41 29 0d 02 26 34 e7 20 | 41 3e 31 36 20 8c 20 ef |A)..&4. |A>16 . .|
|000008e0| 20 31 39 2c 41 2d 31 36 | 2c 32 35 2c 52 65 64 25 | 19,A-16|,25,Red%|
|000008f0| 28 41 29 2c 47 72 65 65 | 6e 25 28 41 29 2c 42 6c |(A),Gree|n%(A),Bl|
|00000900| 75 65 25 28 41 29 0d 02 | 30 05 ed 0d 02 3a 0d fb |ue%(A)..|0....:..|
|00000910| 20 31 34 33 20 3a 20 db | 0d 02 44 05 3a 0d 02 4e | 143 : .|..D.:..N|
|00000920| 45 dc 20 30 2c 30 2c 30 | 2c 32 34 30 2c 30 2c 30 |E. 0,0,0|,240,0,0|
|00000930| 2c 30 2c 32 34 30 2c 30 | 2c 32 34 30 2c 32 30 38 |,0,240,0|,240,208|
|00000940| 2c 36 34 2c 38 30 2c 38 | 30 2c 31 37 36 2c 32 30 |,64,80,8|0,176,20|
|00000950| 38 2c 31 36 30 2c 38 30 | 2c 30 2c 32 34 30 2c 32 |8,160,80|,0,240,2|
|00000960| 34 30 0d 02 58 43 dc 20 | 32 34 30 2c 32 34 30 2c |40..XC. |240,240,|
|00000970| 32 34 30 2c 31 37 36 2c | 30 2c 30 2c 34 38 2c 31 |240,176,|0,0,48,1|
|00000980| 34 34 2c 34 38 2c 32 32 | 34 2c 31 39 32 2c 31 36 |44,48,22|4,192,16|
|00000990| 30 2c 30 2c 31 36 30 2c | 32 34 30 2c 31 32 38 2c |0,0,160,|240,128,|
|000009a0| 39 36 2c 33 32 0d 02 62 | 4b dc 20 36 34 2c 31 39 |96,32..b|K. 64,19|
|000009b0| 32 2c 36 34 2c 31 39 32 | 2c 31 39 32 2c 31 39 32 |2,64,192|,192,192|
|000009c0| 2c 31 32 38 2c 31 32 38 | 2c 31 32 38 2c 31 32 38 |,128,128|,128,128|
|000009d0| 2c 31 32 38 2c 31 32 38 | 2c 30 2c 32 34 30 2c 32 |,128,128|,0,240,2|
|000009e0| 34 30 2c 30 2c 30 2c 32 | 34 30 2c 30 2c 30 2c 30 |40,0,0,2|40,0,0,0|
|000009f0| 0d 02 6c 05 e1 0d 02 76 | 05 3a 0d 02 80 12 dd 20 |..l....v|.:..... |
|00000a00| a4 70 6f 6c 6c 28 6d 61 | 73 6b 25 29 0d 02 8a 08 |.poll(ma|sk%)....|
|00000a10| ea 20 61 25 0d 02 94 11 | 62 6c 6f 63 6b 21 30 3d |. a%....|block!0=|
|00000a20| 6d 61 73 6b 25 0d 02 9e | 1f c8 99 20 22 57 69 6d |mask%...|... "Wim|
|00000a30| 70 5f 50 6f 6c 6c 22 2c | 30 2c 62 6c 6f 63 6b 20 |p_Poll",|0,block |
|00000a40| b8 20 61 25 0d 02 a8 07 | 3d 61 25 0d 02 b2 05 3a |. a%....|=a%....:|
|00000a50| 0d 02 bc 14 dd 20 f2 70 | 6f 6c 6c 28 72 65 61 73 |..... .p|oll(reas|
|00000a60| 6f 6e 25 29 0d 02 c6 10 | c8 8e 20 72 65 61 73 6f |on%)....|.. reaso|
|00000a70| 6e 25 20 ca 0d 02 d0 20 | c9 20 31 20 3a 20 f2 72 |n% .... |. 1 : .r|
|00000a80| 65 64 72 61 77 57 69 6e | 64 6f 77 28 62 6c 6f 63 |edrawWin|dow(bloc|
|00000a90| 6b 21 30 29 0d 02 da 20 | c9 20 32 20 3a 20 f2 6f |k!0)... |. 2 : .o|
|00000aa0| 70 65 6e 57 69 6e 64 6f | 77 28 62 6c 6f 63 6b 21 |penWindo|w(block!|
|00000ab0| 30 2c b9 29 0d 02 e4 22 | c9 20 33 20 3a 20 69 25 |0,.)..."|. 3 : i%|
|00000ac0| 3d a4 77 68 69 63 68 57 | 69 6e 64 6f 77 28 62 6c |=.whichW|indow(bl|
|00000ad0| 6f 63 6b 21 30 29 0d 02 | ee 15 20 20 20 20 20 20 |ock!0)..|..      |
|00000ae0| 20 3a 20 e7 20 69 25 3d | 35 20 8c 0d 02 f8 26 20 | : . i%=|5 ....& |
|00000af0| 20 20 20 20 20 20 3a 20 | f2 6f 70 65 6e 57 69 6e |      : |.openWin|
|00000b00| 64 6f 77 28 57 69 6e 64 | 6f 77 25 28 33 29 2c a3 |dow(Wind|ow%(3),.|
|00000b10| 29 0d 03 02 40 20 20 20 | 20 20 20 20 3a 20 f2 63 |)...@   |    : .c|
|00000b20| 6c 6f 73 65 57 69 6e 64 | 6f 77 28 57 69 6e 64 6f |loseWind|ow(Windo|
|00000b30| 77 25 28 35 29 29 20 3a | 20 f2 63 6c 6f 73 65 57 |w%(5)) :| .closeW|
|00000b40| 69 6e 64 6f 77 28 57 69 | 6e 64 6f 77 25 28 34 29 |indow(Wi|ndow%(4)|
|00000b50| 29 0d 03 0c 26 20 20 20 | 20 20 20 20 3a 20 f2 63 |)...&   |    : .c|
|00000b60| 6c 6f 73 65 57 69 6e 64 | 6f 77 28 57 69 6e 64 6f |loseWind|ow(Windo|
|00000b70| 77 25 28 31 32 29 29 0d | 03 16 23 cc 20 20 20 3a |w%(12)).|..#.   :|
|00000b80| 20 f2 63 6c 6f 73 65 57 | 69 6e 64 6f 77 28 57 69 | .closeW|indow(Wi|
|00000b90| 6e 64 6f 77 25 28 69 25 | 29 29 0d 03 20 26 20 20 |ndow%(i%|)).. &  |
|00000ba0| 20 20 20 20 20 3a 20 f2 | 63 6c 6f 73 65 57 69 6e |     : .|closeWin|
|00000bb0| 64 6f 77 28 57 69 6e 64 | 6f 77 25 28 31 32 29 29 |dow(Wind|ow%(12))|
|00000bc0| 0d 03 2a 05 cd 0d 03 34 | 36 c9 20 36 20 3a 20 f2 |..*....4|6. 6 : .|
|00000bd0| 6d 65 6e 75 43 68 65 63 | 6b 28 62 6c 6f 63 6b 21 |menuChec|k(block!|
|00000be0| 30 2c 62 6c 6f 63 6b 21 | 34 2c 62 6c 6f 63 6b 21 |0,block!|4,block!|
|00000bf0| 38 2c 62 6c 6f 63 6b 21 | 31 32 29 0d 03 3e 26 20 |8,block!|12)..>& |
|00000c00| 20 20 20 20 20 20 3a 20 | f2 63 6c 6f 73 65 57 69 |      : |.closeWi|
|00000c10| 6e 64 6f 77 28 57 69 6e | 64 6f 77 25 28 31 32 29 |ndow(Win|dow%(12)|
|00000c20| 29 0d 03 48 05 cb 0d 03 | 52 05 e1 0d 03 5c 05 3a |)..H....|R....\.:|
|00000c30| 0d 03 66 20 dd 20 f2 6f | 70 65 6e 57 69 6e 64 6f |..f . .o|penWindo|
|00000c40| 77 28 68 61 6e 64 6c 65 | 25 2c 66 75 6c 6c 25 29 |w(handle|%,full%)|
|00000c50| 0d 03 70 13 62 6c 6f 63 | 6b 21 30 3d 68 61 6e 64 |..p.bloc|k!0=hand|
|00000c60| 6c 65 25 0d 03 7a 30 e7 | 20 ac 20 66 75 6c 6c 25 |le%..z0.| . full%|
|00000c70| 20 8c 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 | . .. "W|imp_GetW|
|00000c80| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 30 2c 62 6c |indowSta|te",0,bl|
|00000c90| 6f 63 6b 0d 03 84 20 c8 | 99 20 22 57 69 6d 70 5f |ock... .|. "Wimp_|
|00000ca0| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 30 2c 62 6c |OpenWind|ow",0,bl|
|00000cb0| 6f 63 6b 0d 03 8e 05 e1 | 0d 03 98 05 3a 0d 03 a2 |ock.....|....:...|
|00000cc0| 1c dd 20 f2 72 65 64 72 | 61 77 57 69 6e 64 6f 77 |.. .redr|awWindow|
|00000cd0| 28 68 61 6e 64 6c 65 25 | 29 0d 03 ac 21 ea 20 6d |(handle%|)...!. m|
|00000ce0| 6f 72 65 25 2c 78 30 25 | 2c 79 30 25 2c 69 25 2c |ore%,x0%|,y0%,i%,|
|00000cf0| 6e 61 6d 65 24 2c 6a 75 | 6e 6b 0d 03 b6 1c 69 25 |name$,ju|nk....i%|
|00000d00| 3d a4 77 68 69 63 68 57 | 69 6e 64 6f 77 28 68 61 |=.whichW|indow(ha|
|00000d10| 6e 64 6c 65 25 29 0d 03 | c0 15 6e 61 6d 65 24 3d |ndle%)..|..name$=|
|00000d20| 77 69 6e 64 6f 77 24 28 | 69 25 29 0d 03 ca 13 62 |window$(|i%)....b|
|00000d30| 6c 6f 63 6b 21 30 3d 68 | 61 6e 64 6c 65 25 0d 03 |lock!0=h|andle%..|
|00000d40| d4 2a c8 99 20 22 57 69 | 6d 70 5f 52 65 64 72 61 |.*.. "Wi|mp_Redra|
|00000d50| 77 57 69 6e 64 6f 77 22 | 2c 30 2c 62 6c 6f 63 6b |wWindow"|,0,block|
|00000d60| 20 b8 20 6d 6f 72 65 25 | 0d 03 de 1d 78 30 25 3d | . more%|....x0%=|
|00000d70| 62 6c 6f 63 6b 21 34 20 | 3a 20 79 30 25 3d 62 6c |block!4 |: y0%=bl|
|00000d80| 6f 63 6b 21 38 0d 03 e8 | 0c c8 95 20 6d 6f 72 65 |ock!8...|... more|
|00000d90| 25 0d 03 f2 26 6a 75 6e | 6b 3d a0 28 22 46 4e 64 |%...&jun|k=.("FNd|
|00000da0| 72 61 77 22 2b 6e 61 6d | 65 24 2b 22 28 78 30 25 |raw"+nam|e$+"(x0%|
|00000db0| 2c 79 30 25 29 22 29 0d | 03 fc 2a c8 99 20 22 57 |,y0%)").|..*.. "W|
|00000dc0| 69 6d 70 5f 47 65 74 52 | 65 63 74 61 6e 67 6c 65 |imp_GetR|ectangle|
|00000dd0| 22 2c 30 2c 62 6c 6f 63 | 6b 20 b8 20 6d 6f 72 65 |",0,bloc|k . more|
|00000de0| 25 0d 04 06 05 ce 0d 04 | 10 05 e1 0d 04 1a 05 3a |%.......|.......:|
|00000df0| 0d 04 24 1b dd 20 f2 63 | 6c 6f 73 65 57 69 6e 64 |..$.. .c|loseWind|
|00000e00| 6f 77 28 68 61 6e 64 6c | 65 25 29 0d 04 2e 13 62 |ow(handl|e%)....b|
|00000e10| 6c 6f 63 6b 21 30 3d 68 | 61 6e 64 6c 65 25 0d 04 |lock!0=h|andle%..|
|00000e20| 38 21 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |8!.. "Wi|mp_Close|
|00000e30| 57 69 6e 64 6f 77 22 2c | 30 2c 62 6c 6f 63 6b 0d |Window",|0,block.|
|00000e40| 04 42 05 e1 0d 04 4c 05 | 3a 0d 04 56 29 dd 20 f2 |.B....L.|:..V). .|
|00000e50| 6d 65 6e 75 43 68 65 63 | 6b 28 6d 78 25 2c 6d 79 |menuChec|k(mx%,my|
|00000e60| 25 2c 62 75 74 74 6f 6e | 25 2c 68 61 6e 64 6c 65 |%,button|%,handle|
|00000e70| 25 29 0d 04 60 1b ea 20 | 69 25 2c 6e 61 6d 65 24 |%)..`.. |i%,name$|
|00000e80| 2c 78 30 25 2c 79 30 25 | 2c 54 6f 70 25 0d 04 6a |,x0%,y0%|,Top%..j|
|00000e90| 2a 69 25 3d a4 77 68 69 | 63 68 57 69 6e 64 6f 77 |*i%=.whi|chWindow|
|00000ea0| 28 68 61 6e 64 6c 65 25 | 29 20 3a 20 e7 20 69 25 |(handle%|) : . i%|
|00000eb0| 3d 2d 31 20 8c 20 e1 0d | 04 74 15 6e 61 6d 65 24 |=-1 . ..|.t.name$|
|00000ec0| 3d 77 69 6e 64 6f 77 24 | 28 69 25 29 0d 04 7e 35 |=window$|(i%)..~5|
|00000ed0| 62 6c 6f 63 6b 21 30 3d | 68 61 6e 64 6c 65 25 20 |block!0=|handle% |
|00000ee0| 3a 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |: .. "Wi|mp_GetWi|
|00000ef0| 6e 64 6f 77 49 6e 66 6f | 22 2c 30 2c 62 6c 6f 63 |ndowInfo|",0,bloc|
|00000f00| 6b 0d 04 88 2d 78 30 25 | 3d 62 6c 6f 63 6b 21 34 |k...-x0%|=block!4|
|00000f10| 20 3a 20 79 30 25 3d 62 | 6c 6f 63 6b 21 38 20 3a | : y0%=b|lock!8 :|
|00000f20| 20 54 6f 70 25 3d 62 6c | 6f 63 6b 21 33 34 0d 04 | Top%=bl|ock!34..|
|00000f30| 92 18 e7 20 6e 61 6d 65 | 24 3c 3e 22 49 63 6f 6e |... name|$<>"Icon|
|00000f40| 62 61 72 22 20 8c 0d 04 | 9c 31 54 65 6d 70 24 3d |bar" ...|.1Temp$=|
|00000f50| a4 64 65 63 54 6f 42 69 | 6e 28 54 6f 70 25 29 20 |.decToBi|n(Top%) |
|00000f60| 3a 20 e7 20 c1 54 65 6d | 70 24 2c 37 2c 31 29 3d |: . .Tem|p$,7,1)=|
|00000f70| 22 30 22 20 8c 20 e1 0d | 04 a6 05 cd 0d 04 b0 1d |"0" . ..|........|
|00000f80| 73 78 25 3d 6d 78 25 2d | 78 30 25 20 3a 20 73 79 |sx%=mx%-|x0% : sy|
|00000f90| 25 3d 6d 79 25 2d 79 30 | 25 0d 04 ba 0e c8 8e 20 |%=my%-y0|%...... |
|00000fa0| 6e 61 6d 65 24 20 ca 0d | 04 c4 28 c9 20 22 54 69 |name$ ..|..(. "Ti|
|00000fb0| 74 6c 65 22 20 20 20 20 | 3a 20 f2 74 69 74 6c 65 |tle"    |: .title|
|00000fc0| 53 65 6c 65 63 74 28 62 | 75 74 74 6f 6e 25 29 0d |Select(b|utton%).|
|00000fd0| 04 ce 2f c9 20 22 49 63 | 6f 6e 62 61 72 22 20 20 |../. "Ic|onbar"  |
|00000fe0| 3a 20 f2 69 63 6f 6e 53 | 65 6c 65 63 74 28 6d 78 |: .iconS|elect(mx|
|00000ff0| 25 2c 6d 79 25 2c 62 75 | 74 74 6f 6e 25 29 0d 04 |%,my%,bu|tton%)..|
|00001000| d8 2f c9 20 22 44 69 73 | 63 22 20 20 20 20 20 3a |./. "Dis|c"     :|
|00001010| 20 f2 64 69 73 63 53 65 | 6c 65 63 74 28 73 78 25 | .discSe|lect(sx%|
|00001020| 2c 73 79 25 2c 62 75 74 | 74 6f 6e 25 29 0d 04 e2 |,sy%,but|ton%)...|
|00001030| 31 c9 20 22 52 65 63 6f | 72 64 22 20 20 20 3a 20 |1. "Reco|rd"   : |
|00001040| f2 72 65 63 6f 72 64 53 | 65 6c 65 63 74 28 73 78 |.recordS|elect(sx|
|00001050| 25 2c 73 79 25 2c 62 75 | 74 74 6f 6e 25 29 0d 04 |%,sy%,bu|tton%)..|
|00001060| ec 31 c9 20 22 53 65 61 | 72 63 68 22 20 20 20 3a |.1. "Sea|rch"   :|
|00001070| 20 f2 73 65 61 72 63 68 | 53 65 6c 65 63 74 28 73 | .search|Select(s|
|00001080| 78 25 2c 73 79 25 2c 62 | 75 74 74 6f 6e 25 29 0d |x%,sy%,b|utton%).|
|00001090| 04 f6 32 c9 20 22 50 72 | 69 6e 74 65 72 22 20 20 |..2. "Pr|inter"  |
|000010a0| 3a 20 f2 70 72 69 6e 74 | 65 72 53 65 6c 65 63 74 |: .print|erSelect|
|000010b0| 28 73 78 25 2c 73 79 25 | 2c 62 75 74 74 6f 6e 25 |(sx%,sy%|,button%|
|000010c0| 29 0d 05 00 32 c9 20 22 | 50 61 6c 65 74 74 65 22 |)...2. "|Palette"|
|000010d0| 20 20 3a 20 f2 70 61 6c | 65 74 74 65 53 65 6c 65 |  : .pal|etteSele|
|000010e0| 63 74 28 73 78 25 2c 73 | 79 25 2c 62 75 74 74 6f |ct(sx%,s|y%,butto|
|000010f0| 6e 25 29 0d 05 0a 32 c9 | 20 22 44 65 76 69 63 65 |n%)...2.| "Device|
|00001100| 73 22 20 20 3a 20 f2 64 | 65 76 69 63 65 73 53 65 |s"  : .d|evicesSe|
|00001110| 6c 65 63 74 28 73 78 25 | 2c 73 79 25 2c 62 75 74 |lect(sx%|,sy%,but|
|00001120| 74 6f 6e 25 29 0d 05 14 | 27 c9 20 22 54 69 6d 65 |ton%)...|'. "Time|
|00001130| 22 20 20 20 20 20 3a 20 | f2 74 69 6d 65 53 65 6c |"     : |.timeSel|
|00001140| 65 63 74 28 62 75 74 74 | 6f 6e 25 29 0d 05 1e 30 |ect(butt|on%)...0|
|00001150| c9 20 22 45 72 72 6f 72 | 22 20 20 20 20 3a 20 f2 |. "Error|"    : .|
|00001160| 65 72 72 6f 72 53 65 6c | 65 63 74 28 73 78 25 2c |errorSel|ect(sx%,|
|00001170| 73 79 25 2c 62 75 74 74 | 6f 6e 25 29 0d 05 28 27 |sy%,butt|on%)..('|
|00001180| c9 20 22 45 78 69 74 22 | 20 20 20 20 20 3a 20 f2 |. "Exit"|     : .|
|00001190| 65 78 69 74 53 65 6c 65 | 63 74 28 62 75 74 74 6f |exitSele|ct(butto|
|000011a0| 6e 25 29 0d 05 32 05 cb | 0d 05 3c 05 e1 0d 05 46 |n%)..2..|..<....F|
|000011b0| 05 3a 0d 05 50 1b dd 20 | f2 74 69 74 6c 65 53 65 |.:..P.. |.titleSe|
|000011c0| 6c 65 63 74 28 62 75 74 | 74 6f 6e 25 29 0d 05 5a |lect(but|ton%)..Z|
|000011d0| 2a e7 20 62 75 74 74 6f | 6e 25 3d 31 20 8c 20 f2 |*. butto|n%=1 . .|
|000011e0| 63 6c 6f 73 65 57 69 6e | 64 6f 77 28 57 69 6e 64 |closeWin|dow(Wind|
|000011f0| 6f 77 25 28 30 29 29 0d | 05 64 05 e1 0d 05 6e 05 |ow%(0)).|.d....n.|
|00001200| 3a 0d 05 78 1a dd 20 f2 | 74 69 6d 65 53 65 6c 65 |:..x.. .|timeSele|
|00001210| 63 74 28 62 75 74 74 6f | 6e 25 29 0d 05 82 11 e7 |ct(butto|n%).....|
|00001220| 20 62 75 74 74 6f 6e 25 | 3d 31 20 8c 0d 05 8c 23 | button%|=1 ....#|
|00001230| 20 20 20 20 20 3a 20 f2 | 63 6c 6f 73 65 57 69 6e |     : .|closeWin|
|00001240| 64 6f 77 28 57 69 6e 64 | 6f 77 25 28 38 29 29 0d |dow(Wind|ow%(8)).|
|00001250| 05 96 0d cc 20 3a 20 f2 | 74 69 6d 65 0d 05 a0 05 |.... : .|time....|
|00001260| cd 0d 05 aa 05 e1 0d 05 | b4 05 3a 0d 05 be 1a dd |........|..:.....|
|00001270| 20 f2 65 78 69 74 53 65 | 6c 65 63 74 28 62 75 74 | .exitSe|lect(but|
|00001280| 74 6f 6e 25 29 0d 05 c8 | 11 e7 20 62 75 74 74 6f |ton%)...|.. butto|
|00001290| 6e 25 3d 31 20 8c 0d 05 | d2 24 20 20 20 20 20 3a |n%=1 ...|.$     :|
|000012a0| 20 f2 63 6c 6f 73 65 57 | 69 6e 64 6f 77 28 57 69 | .closeW|indow(Wi|
|000012b0| 6e 64 6f 77 25 28 31 31 | 29 29 0d 05 dc 2f cc 20 |ndow%(11|)).../. |
|000012c0| 3a 20 ff 20 22 53 43 48 | 4f 4f 53 45 20 65 78 69 |: . "SCH|OOSE exi|
|000012d0| 74 32 22 20 3a 20 f0 20 | 32 33 37 2c 78 30 25 2b |t2" : . |237,x0%+|
|000012e0| 33 38 32 2c 79 30 25 2b | 38 0d 05 e6 2a 20 20 20 |382,y0%+|8...*   |
|000012f0| 20 20 3a 20 ff 20 22 50 | 52 49 4e 54 20 3c 41 64 |  : . "P|RINT <Ad|
|00001300| 64 72 65 73 73 24 44 69 | 72 3e 2e 41 72 63 46 6f |dress$Di|r>.ArcFo|
|00001310| 6e 74 22 0d 05 f0 1e 20 | 20 20 20 20 3a 20 c8 99 |nt".... |    : ..|
|00001320| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 44 6f 77 6e | "Wimp_C|loseDown|
|00001330| 22 0d 05 fa 13 20 20 20 | 20 20 3a 20 eb 20 31 32 |"....   |  : . 12|
|00001340| 20 3a 20 e0 0d 06 04 05 | cd 0d 06 0e 05 e1 0d 06 | : .....|........|
|00001350| 18 05 3a 0d 06 22 20 dd | 20 f2 69 63 6f 6e 53 65 |..:.." .| .iconSe|
|00001360| 6c 65 63 74 28 78 25 2c | 79 25 2c 62 75 74 74 6f |lect(x%,|y%,butto|
|00001370| 6e 25 29 0d 06 2c 17 e7 | 20 78 25 3e 31 36 20 20 |n%)..,..| x%>16  |
|00001380| 80 20 78 25 3c 31 30 34 | 20 8c 0d 06 36 14 20 20 |. x%<104| ...6.  |
|00001390| 20 20 20 3a 20 e7 20 49 | 6e 66 6f 25 20 8c 0d 06 |   : . I|nfo% ...|
|000013a0| 40 3a 20 20 20 20 20 3a | 20 49 6e 66 6f 25 3d a3 |@:     :| Info%=.|
|000013b0| 20 3a 20 ff 20 22 53 43 | 48 4f 4f 53 45 20 69 6e | : . "SC|HOOSE in|
|000013c0| 66 6f 22 20 3a 20 f0 20 | 32 33 37 2c 78 30 25 2b |fo" : . |237,x0%+|
|000013d0| 31 36 2c 79 30 25 2b 38 | 0d 06 4a 23 20 20 20 20 |16,y0%+8|..J#    |
|000013e0| 20 3a 20 f2 63 6c 6f 73 | 65 57 69 6e 64 6f 77 28 | : .clos|eWindow(|
|000013f0| 57 69 6e 64 6f 77 25 28 | 39 29 29 0d 06 54 38 cc |Window%(|9))..T8.|
|00001400| 20 3a 20 49 6e 66 6f 25 | 3d b9 20 3a 20 ff 20 22 | : Info%|=. : . "|
|00001410| 53 43 48 4f 4f 53 45 20 | 69 6e 66 6f 32 22 20 3a |SCHOOSE |info2" :|
|00001420| 20 f0 20 32 33 37 2c 78 | 30 25 2b 31 36 2c 79 30 | . 237,x|0%+16,y0|
|00001430| 25 2b 38 0d 06 5e 41 20 | 20 20 20 20 3a 20 49 6e |%+8..^A |    : In|
|00001440| 66 6f 24 28 31 29 3d 22 | 49 6e 66 6f 20 42 75 74 |fo$(1)="|Info But|
|00001450| 74 6f 6e 3a 20 50 6f 69 | 6e 74 20 74 6f 20 61 6e |ton: Poi|nt to an|
|00001460| 20 69 74 65 6d 20 61 6e | 64 20 63 6c 69 63 6b 20 | item an|d click |
|00001470| 74 68 65 22 0d 06 68 3e | 20 20 20 20 20 3a 20 49 |the"..h>|     : I|
|00001480| 6e 66 6f 24 28 32 29 3d | 22 7b 6d 65 6e 75 7d 20 |nfo$(2)=|"{menu} |
|00001490| 62 75 74 74 6f 6e 20 66 | 6f 72 20 6d 6f 72 65 20 |button f|or more |
|000014a0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 2e 2e 2e 2e |informat|ion ....|
|000014b0| 2e 22 0d 06 72 24 20 20 | 20 20 20 3a 20 f2 6f 70 |."..r$  |   : .op|
|000014c0| 65 6e 57 69 6e 64 6f 77 | 28 57 69 6e 64 6f 77 25 |enWindow|(Window%|
|000014d0| 28 39 29 2c a3 29 0d 06 | 7c 05 cd 0d 06 86 05 cd |(9),.)..||.......|
|000014e0| 0d 06 90 17 e7 20 78 25 | 3e 31 31 32 20 80 20 78 |..... x%|>112 . x|
|000014f0| 25 3c 32 30 30 20 8c 0d | 06 9a 20 20 20 20 20 20 |%<200 ..|..      |
|00001500| 3a 20 e7 20 62 75 74 74 | 6f 6e 25 3d 32 20 80 20 |: . butt|on%=2 . |
|00001510| 49 6e 66 6f 25 20 8c 0d | 06 a4 40 20 20 20 20 20 |Info% ..|..@     |
|00001520| 3a 20 49 6e 66 6f 24 28 | 31 29 3d 22 52 65 77 69 |: Info$(|1)="Rewi|
|00001530| 6e 64 20 42 75 74 74 6f | 6e 3a 20 53 74 65 70 73 |nd Butto|n: Steps|
|00001540| 20 62 61 63 6b 20 74 68 | 72 6f 75 67 68 20 72 65 | back th|rough re|
|00001550| 63 6f 72 64 73 2e 22 0d | 06 ae 3f 20 20 20 20 20 |cords.".|..?     |
|00001560| 3a 20 49 6e 66 6f 24 28 | 32 29 3d 22 44 6f 75 62 |: Info$(|2)="Doub|
|00001570| 6c 65 20 63 6c 69 63 6b | 20 74 6f 20 73 74 61 72 |le click| to star|
|00001580| 74 2c 20 63 6c 69 63 6b | 20 74 6f 20 73 74 6f 70 |t, click| to stop|
|00001590| 20 2e 2e 2e 2e 22 0d 06 | b8 28 20 20 20 20 20 3a | ...."..|.(     :|
|000015a0| 20 f2 72 65 64 72 61 77 | 57 69 6e 64 6f 77 28 57 | .redraw|Window(W|
|000015b0| 69 6e 64 6f 77 25 28 39 | 29 29 20 3a 20 e1 0d 06 |indow%(9|)) : ...|
|000015c0| c2 13 cc 20 3a 20 f2 72 | 65 77 69 6e 64 20 3a 20 |... : .r|ewind : |
|000015d0| e1 0d 06 cc 05 cd 0d 06 | d6 05 cd 0d 06 e0 17 e7 |........|........|
|000015e0| 20 78 25 3e 32 30 38 20 | 80 20 78 25 3c 32 39 36 | x%>208 |. x%<296|
|000015f0| 20 8c 0d 06 ea 20 20 20 | 20 20 20 3a 20 e7 20 62 | ....   |   : . b|
|00001600| 75 74 74 6f 6e 25 3d 32 | 20 80 20 49 6e 66 6f 25 |utton%=2| . Info%|
|00001610| 20 8c 0d 06 f4 3c 20 20 | 20 20 20 3a 20 49 6e 66 | ....<  |   : Inf|
|00001620| 6f 24 28 31 29 3d 22 53 | 65 61 72 63 68 20 42 75 |o$(1)="S|earch Bu|
|00001630| 74 74 6f 6e 3a 20 4f 70 | 65 6e 73 20 74 68 65 20 |tton: Op|ens the |
|00001640| 73 74 72 69 6e 67 20 73 | 65 61 72 63 68 22 0d 06 |string s|earch"..|
|00001650| fe 22 20 20 20 20 20 3a | 20 49 6e 66 6f 24 28 32 |."     :| Info$(2|
|00001660| 29 3d 22 77 69 6e 64 6f | 77 20 2e 2e 2e 2e 2e 22 |)="windo|w ....."|
|00001670| 0d 07 08 28 20 20 20 20 | 20 3a 20 f2 72 65 64 72 |...(    | : .redr|
|00001680| 61 77 57 69 6e 64 6f 77 | 28 57 69 6e 64 6f 77 25 |awWindow|(Window%|
|00001690| 28 39 29 29 20 3a 20 e1 | 0d 07 12 3c cc 20 3a 20 |(9)) : .|...<. : |
|000016a0| f2 63 6c 6f 73 65 57 69 | 6e 64 6f 77 28 57 69 6e |.closeWi|ndow(Win|
|000016b0| 64 6f 77 25 28 35 29 29 | 20 3a 20 f2 6f 70 65 6e |dow%(5))| : .open|
|000016c0| 57 69 6e 64 6f 77 28 57 | 69 6e 64 6f 77 25 28 35 |Window(W|indow%(5|
|000016d0| 29 2c a3 29 0d 07 1c 05 | cd 0d 07 26 05 cd 0d 07 |),.)....|...&....|
|000016e0| 30 17 e7 20 78 25 3e 33 | 30 34 20 80 20 78 25 3c |0.. x%>3|04 . x%<|
|000016f0| 33 39 32 20 8c 0d 07 3a | 20 20 20 20 20 20 3a 20 |392 ...:|      : |
|00001700| e7 20 62 75 74 74 6f 6e | 25 3d 32 20 80 20 49 6e |. button|%=2 . In|
|00001710| 66 6f 25 20 8c 0d 07 44 | 40 20 20 20 20 20 3a 20 |fo% ...D|@     : |
|00001720| 49 6e 66 6f 24 28 31 29 | 3d 22 53 6f 72 74 20 42 |Info$(1)|="Sort B|
|00001730| 75 74 74 6f 6e 3a 20 53 | 6f 72 74 73 20 72 65 63 |utton: S|orts rec|
|00001740| 6f 72 64 73 20 61 6c 70 | 68 61 62 65 74 69 63 61 |ords alp|habetica|
|00001750| 6c 6c 79 2e 22 0d 07 4e | 3e 20 20 20 20 20 3a 20 |lly."..N|>     : |
|00001760| 49 6e 66 6f 24 28 32 29 | 3d 22 41 6c 73 6f 20 74 |Info$(2)|="Also t|
|00001770| 69 64 79 73 20 65 6d 70 | 74 79 20 72 65 63 6f 72 |idys emp|ty recor|
|00001780| 64 73 20 74 6f 20 65 6e | 64 20 6f 66 20 66 69 6c |ds to en|d of fil|
|00001790| 65 2e 22 0d 07 58 28 20 | 20 20 20 20 3a 20 f2 72 |e."..X( |    : .r|
|000017a0| 65 64 72 61 77 57 69 6e | 64 6f 77 28 57 69 6e 64 |edrawWin|dow(Wind|
|000017b0| 6f 77 25 28 39 29 29 20 | 3a 20 e1 0d 07 62 11 cc |ow%(9)) |: ...b..|
|000017c0| 20 3a 20 f2 73 6f 72 74 | 20 3a 20 e1 0d 07 6c 05 | : .sort| : ...l.|
|000017d0| cd 0d 07 76 05 cd 0d 07 | 80 17 e7 20 78 25 3e 34 |...v....|... x%>4|
|000017e0| 30 30 20 80 20 78 25 3c | 34 38 38 20 8c 0d 07 8a |00 . x%<|488 ....|
|000017f0| 20 20 20 20 20 20 3a 20 | e7 20 62 75 74 74 6f 6e |      : |. button|
|00001800| 25 3d 32 20 80 20 49 6e | 66 6f 25 20 8c 0d 07 94 |%=2 . In|fo% ....|
|00001810| 40 20 20 20 20 20 3a 20 | 49 6e 66 6f 24 28 31 29 |@     : |Info$(1)|
|00001820| 3d 22 46 61 73 74 46 6f | 72 77 61 72 64 20 42 75 |="FastFo|rward Bu|
|00001830| 74 74 6f 6e 3a 20 53 74 | 65 70 73 20 74 68 72 6f |tton: St|eps thro|
|00001840| 75 67 68 20 72 65 63 6f | 72 64 73 2e 22 0d 07 9e |ugh reco|rds."...|
|00001850| 3b 20 20 20 20 20 3a 20 | 49 6e 66 6f 24 28 32 29 |;     : |Info$(2)|
|00001860| 3d 22 44 6f 75 62 6c 65 | 20 63 6c 69 63 6b 20 74 |="Double| click t|
|00001870| 6f 20 73 74 61 72 74 2c | 20 63 6c 69 63 6b 20 74 |o start,| click t|
|00001880| 6f 20 73 74 6f 70 2e 22 | 0d 07 a8 28 20 20 20 20 |o stop."|...(    |
|00001890| 20 3a 20 f2 72 65 64 72 | 61 77 57 69 6e 64 6f 77 | : .redr|awWindow|
|000018a0| 28 57 69 6e 64 6f 77 25 | 28 39 29 29 20 3a 20 e1 |(Window%|(9)) : .|
|000018b0| 0d 07 b2 14 cc 20 3a 20 | f2 66 6f 72 77 61 72 64 |..... : |.forward|
|000018c0| 20 3a 20 e1 0d 07 bc 05 | cd 0d 07 c6 05 cd 0d 07 | : .....|........|
|000018d0| d0 17 e7 20 78 25 3e 34 | 39 36 20 80 20 78 25 3c |... x%>4|96 . x%<|
|000018e0| 35 38 34 20 8c 0d 07 da | 20 20 20 20 20 20 3a 20 |584 ....|      : |
|000018f0| e7 20 62 75 74 74 6f 6e | 25 3d 32 20 80 20 49 6e |. button|%=2 . In|
|00001900| 66 6f 25 20 8c 0d 07 e4 | 3f 20 20 20 20 20 3a 20 |fo% ....|?     : |
|00001910| 49 6e 66 6f 24 28 31 29 | 3d 22 46 69 6c 65 20 42 |Info$(1)|="File B|
|00001920| 75 74 74 6f 6e 3a 20 4f | 70 65 6e 73 20 74 68 65 |utton: O|pens the|
|00001930| 20 66 69 6c 65 20 72 65 | 63 6f 72 64 20 77 69 6e | file re|cord win|
|00001940| 64 6f 77 22 0d 07 ee 32 | 20 20 20 20 20 3a 20 49 |dow"...2|     : I|
|00001950| 6e 66 6f 24 28 32 29 3d | 22 66 6f 72 20 76 69 65 |nfo$(2)=|"for vie|
|00001960| 77 69 6e 67 20 6f 72 20 | 65 64 69 74 69 6e 67 20 |wing or |editing |
|00001970| 2e 2e 2e 2e 2e 22 0d 07 | f8 28 20 20 20 20 20 3a |....."..|.(     :|
|00001980| 20 f2 72 65 64 72 61 77 | 57 69 6e 64 6f 77 28 57 | .redraw|Window(W|
|00001990| 69 6e 64 6f 77 25 28 39 | 29 29 20 3a 20 e1 0d 08 |indow%(9|)) : ...|
|000019a0| 02 3c cc 20 3a 20 f2 63 | 6c 6f 73 65 57 69 6e 64 |.<. : .c|loseWind|
|000019b0| 6f 77 28 57 69 6e 64 6f | 77 25 28 33 29 29 20 3a |ow(Windo|w%(3)) :|
|000019c0| 20 f2 6f 70 65 6e 57 69 | 6e 64 6f 77 28 57 69 6e | .openWi|ndow(Win|
|000019d0| 64 6f 77 25 28 33 29 2c | a3 29 0d 08 0c 05 cd 0d |dow%(3),|.)......|
|000019e0| 08 16 05 cd 0d 08 20 17 | e7 20 78 25 3e 35 39 32 |...... .|. x%>592|
|000019f0| 20 80 20 78 25 3c 36 38 | 30 20 8c 0d 08 2a 20 20 | . x%<68|0 ...*  |
|00001a00| 20 20 20 20 3a 20 e7 20 | 62 75 74 74 6f 6e 25 3d |    : . |button%=|
|00001a10| 32 20 80 20 49 6e 66 6f | 25 20 8c 0d 08 34 2d 20 |2 . Info|% ...4- |
|00001a20| 20 20 20 20 3a 20 49 6e | 66 6f 24 28 31 29 3d 22 |    : In|fo$(1)="|
|00001a30| 49 63 6f 6e 42 61 72 3a | 20 22 20 3a 20 49 6e 66 |IconBar:| " : Inf|
|00001a40| 6f 24 28 32 29 3d 22 22 | 0d 08 3e 28 20 20 20 20 |o$(2)=""|..>(    |
|00001a50| 20 3a 20 f2 72 65 64 72 | 61 77 57 69 6e 64 6f 77 | : .redr|awWindow|
|00001a60| 28 57 69 6e 64 6f 77 25 | 28 39 29 29 20 3a 20 e1 |(Window%|(9)) : .|
|00001a70| 0d 08 48 05 cd 0d 08 52 | 05 cd 0d 08 5c 17 e7 20 |..H....R|....\.. |
|00001a80| 78 25 3e 36 38 38 20 80 | 20 78 25 3c 37 37 36 20 |x%>688 .| x%<776 |
|00001a90| 8c 0d 08 66 20 20 20 20 | 20 20 3a 20 e7 20 62 75 |...f    |  : . bu|
|00001aa0| 74 74 6f 6e 25 3d 32 20 | 80 20 49 6e 66 6f 25 20 |tton%=2 |. Info% |
|00001ab0| 8c 0d 08 70 4b 20 20 20 | 20 20 3a 20 49 6e 66 6f |...pK   |  : Info|
|00001ac0| 24 28 31 29 3d 22 43 6c | 6f 63 6b 20 49 63 6f 6e |$(1)="Cl|ock Icon|
|00001ad0| 3a 20 44 69 73 70 6c 61 | 79 73 20 74 68 65 20 74 |: Displa|ys the t|
|00001ae0| 69 6d 65 20 61 6e 64 20 | 64 61 74 65 2e 22 20 3a |ime and |date." :|
|00001af0| 20 49 6e 66 6f 24 28 32 | 29 3d 22 22 0d 08 7a 28 | Info$(2|)=""..z(|
|00001b00| 20 20 20 20 20 3a 20 f2 | 72 65 64 72 61 77 57 69 |     : .|redrawWi|
|00001b10| 6e 64 6f 77 28 57 69 6e | 64 6f 77 25 28 39 29 29 |ndow(Win|dow%(9))|
|00001b20| 20 3a 20 e1 0d 08 84 3c | cc 20 3a 20 f2 63 6c 6f | : ....<|. : .clo|
|00001b30| 73 65 57 69 6e 64 6f 77 | 28 57 69 6e 64 6f 77 25 |seWindow|(Window%|
|00001b40| 28 38 29 29 20 3a 20 f2 | 6f 70 65 6e 57 69 6e 64 |(8)) : .|openWind|
|00001b50| 6f 77 28 57 69 6e 64 6f | 77 25 28 38 29 2c a3 29 |ow(Windo|w%(8),.)|
|00001b60| 0d 08 8e 05 cd 0d 08 98 | 05 cd 0d 08 a2 17 e7 20 |........|....... |
|00001b70| 78 25 3e 37 38 34 20 80 | 20 78 25 3c 38 37 32 20 |x%>784 .| x%<872 |
|00001b80| 8c 0d 08 ac 20 20 20 20 | 20 20 3a 20 e7 20 62 75 |....    |  : . bu|
|00001b90| 74 74 6f 6e 25 3d 32 20 | 80 20 49 6e 66 6f 25 20 |tton%=2 |. Info% |
|00001ba0| 8c 0d 08 b6 40 20 20 20 | 20 20 3a 20 49 6e 66 6f |....@   |  : Info|
|00001bb0| 24 28 31 29 3d 22 50 61 | 6c 65 74 74 65 20 49 63 |$(1)="Pa|lette Ic|
|00001bc0| 6f 6e 3a 20 4f 70 65 6e | 73 20 74 68 65 20 70 61 |on: Open|s the pa|
|00001bd0| 6c 65 74 74 65 20 77 69 | 6e 64 6f 77 20 66 6f 72 |lette wi|ndow for|
|00001be0| 22 0d 08 c0 3e 20 20 20 | 20 20 3a 20 49 6e 66 6f |"...>   |  : Info|
|00001bf0| 24 28 32 29 3d 22 63 6f | 6c 6f 75 72 20 63 68 61 |$(2)="co|lour cha|
|00001c00| 6e 67 65 73 20 61 6e 64 | 20 6c 6f 61 64 2f 73 61 |nges and| load/sa|
|00001c10| 76 65 20 6f 70 65 72 61 | 74 69 6f 6e 73 2e 22 0d |ve opera|tions.".|
|00001c20| 08 ca 28 20 20 20 20 20 | 3a 20 f2 72 65 64 72 61 |..(     |: .redra|
|00001c30| 77 57 69 6e 64 6f 77 28 | 57 69 6e 64 6f 77 25 28 |wWindow(|Window%(|
|00001c40| 39 29 29 20 3a 20 e1 0d | 08 d4 3c cc 20 3a 20 f2 |9)) : ..|..<. : .|
|00001c50| 63 6c 6f 73 65 57 69 6e | 64 6f 77 28 57 69 6e 64 |closeWin|dow(Wind|
|00001c60| 6f 77 25 28 37 29 29 20 | 3a 20 f2 6f 70 65 6e 57 |ow%(7)) |: .openW|
|00001c70| 69 6e 64 6f 77 28 57 69 | 6e 64 6f 77 25 28 37 29 |indow(Wi|ndow%(7)|
|00001c80| 2c a3 29 0d 08 de 05 cd | 0d 08 e8 05 cd 0d 08 f2 |,.).....|........|
|00001c90| 17 e7 20 78 25 3e 38 38 | 30 20 80 20 78 25 3c 39 |.. x%>88|0 . x%<9|
|00001ca0| 36 38 20 8c 0d 08 fc 20 | 20 20 20 20 20 3a 20 e7 |68 .... |     : .|
|00001cb0| 20 62 75 74 74 6f 6e 25 | 3d 32 20 80 20 49 6e 66 | button%|=2 . Inf|
|00001cc0| 6f 25 20 8c 0d 09 06 41 | 20 20 20 20 20 3a 20 49 |o% ....A|     : I|
|00001cd0| 6e 66 6f 24 28 31 29 3d | 22 44 69 73 63 20 49 63 |nfo$(1)=|"Disc Ic|
|00001ce0| 6f 6e 3a 20 4f 70 65 6e | 73 20 74 68 65 20 64 69 |on: Open|s the di|
|00001cf0| 73 63 20 6f 70 65 72 61 | 74 69 6f 6e 73 20 77 69 |sc opera|tions wi|
|00001d00| 6e 64 6f 77 22 0d 09 10 | 3f 20 20 20 20 20 3a 20 |ndow"...|?     : |
|00001d10| 49 6e 66 6f 24 28 32 29 | 3d 22 66 6f 72 20 6c 6f |Info$(2)|="for lo|
|00001d20| 61 64 69 6e 67 20 61 6e | 64 20 73 61 76 69 6e 67 |ading an|d saving|
|00001d30| 20 61 64 64 72 65 73 73 | 20 64 61 74 61 66 69 6c | address| datafil|
|00001d40| 65 73 2e 22 0d 09 1a 28 | 20 20 20 20 20 3a 20 f2 |es."...(|     : .|
|00001d50| 72 65 64 72 61 77 57 69 | 6e 64 6f 77 28 57 69 6e |redrawWi|ndow(Win|
|00001d60| 64 6f 77 25 28 39 29 29 | 20 3a 20 e1 0d 09 24 3c |dow%(9))| : ...$<|
|00001d70| cc 20 3a 20 f2 63 6c 6f | 73 65 57 69 6e 64 6f 77 |. : .clo|seWindow|
|00001d80| 28 57 69 6e 64 6f 77 25 | 28 32 29 29 20 3a 20 f2 |(Window%|(2)) : .|
|00001d90| 6f 70 65 6e 57 69 6e 64 | 6f 77 28 57 69 6e 64 6f |openWind|ow(Windo|
|00001da0| 77 25 28 32 29 2c a3 29 | 0d 09 2e 05 cd 0d 09 38 |w%(2),.)|.......8|
|00001db0| 05 cd 0d 09 42 18 e7 20 | 78 25 3e 39 37 36 20 80 |....B.. |x%>976 .|
|00001dc0| 20 78 25 3c 31 31 36 30 | 20 8c 0d 09 4c 20 20 20 | x%<1160| ...L   |
|00001dd0| 20 20 20 3a 20 e7 20 62 | 75 74 74 6f 6e 25 3d 32 |   : . b|utton%=2|
|00001de0| 20 80 20 49 6e 66 6f 25 | 20 8c 0d 09 56 40 20 20 | . Info%| ...V@  |
|00001df0| 20 20 20 3a 20 49 6e 66 | 6f 24 28 31 29 3d 22 50 |   : Inf|o$(1)="P|
|00001e00| 72 69 6e 74 65 72 20 49 | 63 6f 6e 3a 20 4f 70 65 |rinter I|con: Ope|
|00001e10| 6e 73 20 75 70 20 74 68 | 65 20 70 72 69 6e 74 65 |ns up th|e printe|
|00001e20| 72 20 6f 70 74 69 6f 6e | 73 22 0d 09 60 36 20 20 |r option|s"..`6  |
|00001e30| 20 20 20 3a 20 49 6e 66 | 6f 24 28 32 29 3d 22 77 |   : Inf|o$(2)="w|
|00001e40| 69 6e 64 6f 77 20 66 6f | 72 20 72 65 63 6f 72 64 |indow fo|r record|
|00001e50| 20 70 72 69 6e 74 69 6e | 67 20 2e 2e 2e 2e 2e 22 | printin|g ....."|
|00001e60| 0d 09 6a 28 20 20 20 20 | 20 3a 20 f2 72 65 64 72 |..j(    | : .redr|
|00001e70| 61 77 57 69 6e 64 6f 77 | 28 57 69 6e 64 6f 77 25 |awWindow|(Window%|
|00001e80| 28 39 29 29 20 3a 20 e1 | 0d 09 74 3c cc 20 3a 20 |(9)) : .|..t<. : |
|00001e90| f2 63 6c 6f 73 65 57 69 | 6e 64 6f 77 28 57 69 6e |.closeWi|ndow(Win|
|00001ea0| 64 6f 77 25 28 36 29 29 | 20 3a 20 f2 6f 70 65 6e |dow%(6))| : .open|
|00001eb0| 57 69 6e 64 6f 77 28 57 | 69 6e 64 6f 77 25 28 36 |Window(W|indow%(6|
|00001ec0| 29 2c a3 29 0d 09 7e 05 | cd 0d 09 88 05 cd 0d 09 |),.)..~.|........|
|00001ed0| 92 19 e7 20 78 25 3e 31 | 31 36 38 20 80 20 78 25 |... x%>1|168 . x%|
|00001ee0| 3c 31 32 35 36 20 8c 0d | 09 9c 20 20 20 20 20 20 |<1256 ..|..      |
|00001ef0| 3a 20 e7 20 62 75 74 74 | 6f 6e 25 3d 32 20 80 20 |: . butt|on%=2 . |
|00001f00| 49 6e 66 6f 25 20 8c 0d | 09 a6 2a 20 20 20 20 20 |Info% ..|..*     |
|00001f10| 3a 20 49 6e 66 6f 24 28 | 31 29 3d 22 50 72 6f 67 |: Info$(|1)="Prog|
|00001f20| 72 61 6d 20 45 78 69 74 | 20 42 75 74 74 6f 6e 3a |ram Exit| Button:|
|00001f30| 22 0d 09 b0 3f 20 20 20 | 20 20 3a 20 49 6e 66 6f |"...?   |  : Info|
|00001f40| 24 28 32 29 3d 22 54 68 | 65 20 53 41 46 45 20 77 |$(2)="Th|e SAFE w|
|00001f50| 61 79 20 74 6f 20 66 69 | 6e 69 73 68 20 77 69 74 |ay to fi|nish wit|
|00001f60| 68 20 74 68 69 73 20 70 | 72 6f 67 72 61 6d 2e 22 |h this p|rogram."|
|00001f70| 0d 09 ba 28 20 20 20 20 | 20 3a 20 f2 72 65 64 72 |...(    | : .redr|
|00001f80| 61 77 57 69 6e 64 6f 77 | 28 57 69 6e 64 6f 77 25 |awWindow|(Window%|
|00001f90| 28 39 29 29 20 3a 20 e1 | 0d 09 c4 21 cc 20 3a 20 |(9)) : .|...!. : |
|00001fa0| f2 63 6c 6f 73 65 57 69 | 6e 64 6f 77 28 57 69 6e |.closeWi|ndow(Win|
|00001fb0| 64 6f 77 25 28 31 31 29 | 29 0d 09 ce 29 20 20 20 |dow%(11)|)...)   |
|00001fc0| 20 20 3a 20 f2 6f 70 65 | 6e 57 69 6e 64 6f 77 28 |  : .ope|nWindow(|
|00001fd0| 57 69 6e 64 6f 77 25 28 | 31 31 29 2c a3 29 20 3a |Window%(|11),.) :|
|00001fe0| 20 e1 0d 09 d8 05 cd 0d | 09 e2 05 cd 0d 09 ec 2b | .......|.......+|
|00001ff0| e7 20 62 75 74 74 6f 6e | 25 3d 32 20 8c 20 f2 6f |. button|%=2 . .o|
|00002000| 70 65 6e 57 69 6e 64 6f | 77 28 57 69 6e 64 6f 77 |penWindo|w(Window|
|00002010| 25 28 30 29 2c a3 29 0d | 09 f6 05 e1 0d 0a 00 05 |%(0),.).|........|
|00002020| 3a 0d 0a 0a 22 dd 20 f2 | 72 65 63 6f 72 64 53 65 |:...". .|recordSe|
|00002030| 6c 65 63 74 28 78 25 2c | 79 25 2c 62 75 74 74 6f |lect(x%,|y%,butto|
|00002040| 6e 25 29 0d 0a 14 17 e7 | 20 79 25 3e 36 37 32 20 |n%).....| y%>672 |
|00002050| 80 20 79 25 3c 37 34 38 | 20 8c 0d 0a 1e 1d 20 20 |. y%<748| .....  |
|00002060| 20 20 20 3a 20 e7 20 78 | 25 3e 31 36 20 80 20 78 |   : . x|%>16 . x|
|00002070| 25 3c 31 30 34 20 8c 0d | 0a 28 12 20 20 20 20 20 |%<104 ..|.(.     |
|00002080| 3a 20 45 64 69 74 25 3d | a3 0d 0a 32 20 20 20 20 |: Edit%=|...2    |
|00002090| 20 20 3a 20 e7 20 62 75 | 74 74 6f 6e 25 3d 32 20 |  : . bu|tton%=2 |
|000020a0| 80 20 49 6e 66 6f 25 20 | 8c 0d 0a 3c 4a 20 20 20 |. Info% |...<J   |
|000020b0| 20 20 3a 20 49 6e 66 6f | 24 28 31 29 3d 22 53 74 |  : Info|$(1)="St|
|000020c0| 61 72 74 20 42 75 74 74 | 6f 6e 3a 20 47 6f 20 74 |art Butt|on: Go t|
|000020d0| 6f 20 73 74 61 72 74 20 | 6f 66 20 64 61 74 61 66 |o start |of dataf|
|000020e0| 69 6c 65 2e 22 20 3a 20 | 49 6e 66 6f 24 28 32 29 |ile." : |Info$(2)|
|000020f0| 3d 22 22 0d 0a 46 28 20 | 20 20 20 20 3a 20 f2 72 |=""..F( |    : .r|
|00002100| 65 64 72 61 77 57 69 6e | 64 6f 77 28 57 69 6e 64 |edrawWin|dow(Wind|
|00002110| 6f 77 25 28 39 29 29 20 | 3a 20 e1 0d 0a 50 29 cc |ow%(9)) |: ...P).|
|00002120| 20 3a 20 e7 20 52 65 63 | 6f 72 64 25 3e 31 20 8c | : . Rec|ord%>1 .|
|00002130| 20 52 65 63 6f 72 64 25 | 3d 31 20 8b 20 ef 20 37 | Record%|=1 . . 7|
|00002140| 20 3a 20 e1 0d 0a 5a 28 | 20 20 20 20 20 3a 20 f2 | : ...Z(|     : .|
|00002150| 72 65 64 72 61 77 57 69 | 6e 64 6f 77 28 57 69 6e |redrawWi|ndow(Win|
|00002160| 64 6f 77 25 28 33 29 29 | 20 3a 20 e1 0d 0a 64 05 |dow%(3))| : ...d.|
|00002170| cd 0d 0a 6e 05 cd 0d 0a | 78 1e 20 20 20 20 20 3a |...n....|x.     :|
|00002180| 20 e7 20 78 25 3e 31 31 | 32 20 80 20 78 25 3c 32 | . x%>11|2 . x%<2|
|00002190| 30 30 20 8c 0d 0a 82 12 | 20 20 20 20 20 3a 20 45 |00 .....|     : E|
|000021a0| 64 69 74 25 3d a3 0d 0a | 8c 20 20 20 20 20 20 3a |dit%=...|.      :|
|000021b0| 20 e7 20 62 75 74 74 6f | 6e 25 3d 32 20 80 20 49 | . butto|n%=2 . I|
|000021c0| 6e 66 6f 25 20 8c 0d 0a | 96 4c 20 20 20 20 20 3a |nfo% ...|.L     :|
|000021d0| 20 49 6e 66 6f 24 28 31 | 29 3d 22 42 61 63 6b 20 | Info$(1|)="Back |
|000021e0| 42 75 74 74 6f 6e 3a 20 | 4d 6f 76 65 20 62 61 63 |Button: |Move bac|
|000021f0| 6b 20 74 68 72 6f 75 67 | 68 20 64 61 74 61 66 69 |k throug|h datafi|
|00002200| 6c 65 2e 22 20 3a 20 49 | 6e 66 6f 24 28 32 29 3d |le." : I|nfo$(2)=|
|00002210| 22 22 0d 0a a0 28 20 20 | 20 20 20 3a 20 f2 72 65 |""...(  |   : .re|
|00002220| 64 72 61 77 57 69 6e 64 | 6f 77 28 57 69 6e 64 6f |drawWind|ow(Windo|
|00002230| 77 25 28 39 29 29 20 3a | 20 e1 0d 0a aa 36 cc 20 |w%(9)) :| ....6. |
|00002240| 3a 20 52 65 63 6f 72 64 | 25 2d 3d 31 20 3a 20 e7 |: Record|%-=1 : .|
|00002250| 20 52 65 63 6f 72 64 25 | 3c 31 20 8c 20 ef 20 37 | Record%|<1 . . 7|
|00002260| 20 3a 20 52 65 63 6f 72 | 64 25 3d 31 20 3a 20 e1 | : Recor|d%=1 : .|
|00002270| 0d 0a b4 28 20 20 20 20 | 20 3a 20 f2 72 65 64 72 |...(    | : .redr|
|00002280| 61 77 57 69 6e 64 6f 77 | 28 57 69 6e 64 6f 77 25 |awWindow|(Window%|
|00002290| 28 33 29 29 20 3a 20 e1 | 0d 0a be 05 cd 0d 0a c8 |(3)) : .|........|
|000022a0| 05 cd 0d 0a d2 1e 20 20 | 20 20 20 3a 20 e7 20 78 |......  |   : . x|
|000022b0| 25 3e 32 30 38 20 80 20 | 78 25 3c 32 39 36 20 8c |%>208 . |x%<296 .|
|000022c0| 0d 0a dc 20 20 20 20 20 | 20 3a 20 e7 20 62 75 74 |...     | : . but|
|000022d0| 74 6f 6e 25 3d 32 20 80 | 20 49 6e 66 6f 25 20 8c |ton%=2 .| Info% .|
|000022e0| 0d 0a e6 4b 20 20 20 20 | 20 3a 20 49 6e 66 6f 24 |...K    | : Info$|
|000022f0| 28 31 29 3d 22 45 64 69 | 74 20 42 75 74 74 6f 6e |(1)="Edi|t Button|
|00002300| 3a 20 43 6c 69 63 6b 20 | 68 65 72 65 20 74 6f 20 |: Click |here to |
|00002310| 65 64 69 74 20 72 65 63 | 6f 72 64 2e 22 20 3a 20 |edit rec|ord." : |
|00002320| 49 6e 66 6f 24 28 32 29 | 3d 22 22 0d 0a f0 28 20 |Info$(2)|=""...( |
|00002330| 20 20 20 20 3a 20 f2 72 | 65 64 72 61 77 57 69 6e |    : .r|edrawWin|
|00002340| 64 6f 77 28 57 69 6e 64 | 6f 77 25 28 39 29 29 20 |dow(Wind|ow%(9)) |
|00002350| 3a 20 e1 0d 0a fa 3b cc | 20 3a 20 45 64 69 74 25 |: ....;.| : Edit%|
|00002360| 3d b9 20 3a 20 ff 20 22 | 53 43 48 4f 4f 53 45 20 |=. : . "|SCHOOSE |
|00002370| 65 64 69 74 32 22 20 3a | 20 f0 20 32 33 37 2c 78 |edit2" :| . 237,x|
|00002380| 30 25 2b 32 30 38 2c 79 | 30 25 2b 36 37 32 0d 0b |0%+208,y|0%+672..|
|00002390| 04 0c 20 20 20 20 20 3a | 20 e1 0d 0b 0e 05 cd 0d |..     :| .......|
|000023a0| 0b 18 05 cd 0d 0b 22 1e | 20 20 20 20 20 3a 20 e7 |......".|     : .|
|000023b0| 20 78 25 3e 33 30 34 20 | 80 20 78 25 3c 33 39 32 | x%>304 |. x%<392|
|000023c0| 20 8c 0d 0b 2c 12 20 20 | 20 20 20 3a 20 45 64 69 | ...,.  |   : Edi|
|000023d0| 74 25 3d a3 0d 0b 36 20 | 20 20 20 20 20 3a 20 e7 |t%=...6 |     : .|
|000023e0| 20 62 75 74 74 6f 6e 25 | 3d 32 20 80 20 49 6e 66 | button%|=2 . Inf|
|000023f0| 6f 25 20 8c 0d 0b 40 4e | 20 20 20 20 20 3a 20 49 |o% ...@N|     : I|
|00002400| 6e 66 6f 24 28 31 29 3d | 22 46 6f 72 77 61 72 64 |nfo$(1)=|"Forward|
|00002410| 20 42 75 74 74 6f 6e 3a | 20 4d 6f 76 65 20 66 6f | Button:| Move fo|
|00002420| 72 77 61 72 64 20 74 68 | 72 6f 75 67 68 20 66 69 |rward th|rough fi|
|00002430| 6c 65 2e 22 20 3a 20 49 | 6e 66 6f 24 28 32 29 3d |le." : I|nfo$(2)=|
|00002440| 22 22 0d 0b 4a 28 20 20 | 20 20 20 3a 20 f2 72 65 |""..J(  |   : .re|
|00002450| 64 72 61 77 57 69 6e 64 | 6f 77 28 57 69 6e 64 6f |drawWind|ow(Windo|
|00002460| 77 25 28 39 29 29 20 3a | 20 e1 0d 0b 54 40 cc 20 |w%(9)) :| ...T@. |
|00002470| 3a 20 52 65 63 6f 72 64 | 25 2b 3d 31 20 3a 20 e7 |: Record|%+=1 : .|
|00002480| 20 52 65 63 6f 72 64 25 | 3e 54 6f 74 61 6c 25 20 | Record%|>Total% |
|00002490| 8c 20 ef 20 37 20 3a 20 | 52 65 63 6f 72 64 25 3d |. . 7 : |Record%=|
|000024a0| 54 6f 74 61 6c 25 20 3a | 20 e1 0d 0b 5e 28 20 20 |Total% :| ...^(  |
|000024b0| 20 20 20 3a 20 f2 72 65 | 64 72 61 77 57 69 6e 64 |   : .re|drawWind|
|000024c0| 6f 77 28 57 69 6e 64 6f | 77 25 28 33 29 29 20 3a |ow(Windo|w%(3)) :|
|000024d0| 20 e1 0d 0b 68 05 cd 0d | 0b 72 05 cd 0d 0b 7c 1e | ...h...|.r....|.|
|000024e0| 20 20 20 20 20 3a 20 e7 | 20 78 25 3e 34 30 30 20 |     : .| x%>400 |
|000024f0| 80 20 78 25 3c 34 38 38 | 20 8c 0d 0b 86 12 20 20 |. x%<488| .....  |
|00002500| 20 20 20 3a 20 45 64 69 | 74 25 3d a3 0d 0b 90 20 |   : Edi|t%=.... |
|00002510| 20 20 20 20 20 3a 20 e7 | 20 62 75 74 74 6f 6e 25 |     : .| button%|
|00002520| 3d 32 20 80 20 49 6e 66 | 6f 25 20 8c 0d 0b 9a 48 |=2 . Inf|o% ....H|
|00002530| 20 20 20 20 20 3a 20 49 | 6e 66 6f 24 28 31 29 3d |     : I|nfo$(1)=|
|00002540| 22 45 6e 64 20 42 75 74 | 74 6f 6e 3a 20 4d 6f 76 |"End But|ton: Mov|
|00002550| 65 20 74 6f 20 65 6e 64 | 20 6f 66 20 64 61 74 61 |e to end| of data|
|00002560| 66 69 6c 65 2e 22 20 3a | 20 49 6e 66 6f 24 28 32 |file." :| Info$(2|
|00002570| 29 3d 22 22 0d 0b a4 28 | 20 20 20 20 20 3a 20 f2 |)=""...(|     : .|
|00002580| 72 65 64 72 61 77 57 69 | 6e 64 6f 77 28 57 69 6e |redrawWi|ndow(Win|
|00002590| 64 6f 77 25 28 39 29 29 | 20 3a 20 e1 0d 0b ae 22 |dow%(9))| : ...."|
|000025a0| cc 20 3a 20 e7 20 52 65 | 63 6f 72 64 25 3d 54 6f |. : . Re|cord%=To|
|000025b0| 74 61 6c 25 20 8c 20 ef | 20 37 20 3a 20 e1 0d 0b |tal% . .| 7 : ...|
|000025c0| b8 39 20 20 20 20 20 3a | 20 52 65 63 6f 72 64 25 |.9     :| Record%|
|000025d0| 3d 54 6f 74 61 6c 25 20 | 3a 20 f2 72 65 64 72 61 |=Total% |: .redra|
|000025e0| 77 57 69 6e 64 6f 77 28 | 57 69 6e 64 6f 77 25 28 |wWindow(|Window%(|
|000025f0| 33 29 29 20 3a 20 e1 0d | 0b c2 05 cd 0d 0b cc 05 |3)) : ..|........|
|00002600| cd 0d 0b d6 15 20 20 20 | 20 20 3a 20 e7 20 78 25 |.....   |  : . x%|
|00002610| 3e 34 39 36 20 8c 0d 0b | e0 12 20 20 20 20 20 3a |>496 ...|..     :|
|00002620| 20 45 64 69 74 25 3d a3 | 0d 0b ea 20 20 20 20 20 | Edit%=.|...     |
|00002630| 20 3a 20 e7 20 62 75 74 | 74 6f 6e 25 3d 32 20 80 | : . but|ton%=2 .|
|00002640| 20 49 6e 66 6f 25 20 8c | 0d 0b f4 4c 20 20 20 20 | Info% .|...L    |
|00002650| 20 3a 20 49 6e 66 6f 24 | 28 31 29 3d 22 54 68 65 | : Info$|(1)="The|
|00002660| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 63 75 72 | name of| the cur|
|00002670| 72 65 6e 74 20 6c 6f 61 | 64 65 64 20 64 61 74 61 |rent loa|ded data|
|00002680| 66 69 6c 65 2e 22 20 3a | 20 49 6e 66 6f 24 28 32 |file." :| Info$(2|
|00002690| 29 3d 22 22 0d 0b fe 28 | 20 20 20 20 20 3a 20 f2 |)=""...(|     : .|
|000026a0| 72 65 64 72 61 77 57 69 | 6e 64 6f 77 28 57 69 6e |redrawWi|ndow(Win|
|000026b0| 64 6f 77 25 28 39 29 29 | 20 3a 20 e1 0d 0c 08 05 |dow%(9))| : .....|
|000026c0| cd 0d 0c 12 05 cd 0d 0c | 1c 05 cd 0d 0c 26 17 e7 |........|.....&..|
|000026d0| 20 79 25 3e 35 39 36 20 | 80 20 79 25 3c 36 35 36 | y%>596 |. y%<656|
|000026e0| 20 8c 0d 0c 30 1d 20 20 | 20 20 20 3a 20 e7 20 78 | ...0.  |   : . x|
|000026f0| 25 3e 31 36 20 80 20 78 | 25 3c 33 39 32 20 8c 0d |%>16 . x|%<392 ..|
|00002700| 0c 3a 20 20 20 20 20 20 | 3a 20 e7 20 62 75 74 74 |.:      |: . butt|
|00002710| 6f 6e 25 3d 32 20 80 20 | 49 6e 66 6f 25 20 8c 0d |on%=2 . |Info% ..|
|00002720| 0c 44 4a 20 20 20 20 20 | 3a 20 49 6e 66 6f 24 28 |.DJ     |: Info$(|
|00002730| 31 29 3d 22 4e 75 6d 62 | 65 72 20 6f 66 20 52 65 |1)="Numb|er of Re|
|00002740| 63 6f 72 64 20 62 65 69 | 6e 67 20 64 69 73 70 6c |cord bei|ng displ|
|00002750| 61 79 65 64 20 2e 2e 2e | 2e 2e 22 20 3a 20 49 6e |ayed ...|.." : In|
|00002760| 66 6f 24 28 32 29 3d 22 | 22 0d 0c 4e 28 20 20 20 |fo$(2)="|"..N(   |
|00002770| 20 20 3a 20 f2 72 65 64 | 72 61 77 57 69 6e 64 6f |  : .red|rawWindo|
|00002780| 77 28 57 69 6e 64 6f 77 | 25 28 39 29 29 20 3a 20 |w(Window|%(9)) : |
|00002790| e1 0d 0c 58 05 cd 0d 0c | 62 05 cd 0d 0c 6c 15 20 |...X....|b....l. |
|000027a0| 20 20 20 20 3a 20 e7 20 | 78 25 3e 34 30 30 20 8c |    : . |x%>400 .|
|000027b0| 0d 0c 76 20 20 20 20 20 | 20 3a 20 e7 20 62 75 74 |..v     | : . but|
|000027c0| 74 6f 6e 25 3d 32 20 80 | 20 49 6e 66 6f 25 20 8c |ton%=2 .| Info% .|
|000027d0| 0d 0c 80 3e 20 20 20 20 | 20 3a 20 49 6e 66 6f 24 |...>    | : Info$|
|000027e0| 28 31 29 3d 22 54 6f 74 | 61 6c 20 52 65 63 6f 72 |(1)="Tot|al Recor|
|000027f0| 64 73 20 69 6e 20 74 68 | 65 20 66 69 6c 65 20 2e |ds in th|e file .|
|00002800| 2e 2e 2e 2e 20 55 73 65 | 20 45 64 69 74 22 0d 0c |.... Use| Edit"..|
|00002810| 8a 29 20 20 20 20 20 3a | 20 49 6e 66 6f 24 28 32 |.)     :| Info$(2|
|00002820| 29 3d 22 74 6f 20 63 68 | 61 6e 67 65 20 74 68 65 |)="to ch|ange the|
|00002830| 20 73 69 7a 65 2e 22 0d | 0c 94 28 20 20 20 20 20 | size.".|..(     |
|00002840| 3a 20 f2 72 65 64 72 61 | 77 57 69 6e 64 6f 77 28 |: .redra|wWindow(|
|00002850| 57 69 6e 64 6f 77 25 28 | 39 29 29 20 3a 20 e1 0d |Window%(|9)) : ..|
|00002860| 0c 9e 1a cc 20 3a 20 e7 | 20 45 64 69 74 25 20 8c |.... : .| Edit% .|
|00002870| 20 f2 65 64 69 74 28 30 | 29 0d 0c a8 05 cd 0d 0c | .edit(0|).......|
|00002880| b2 05 cd 0d 0c bc 05 cd | 0d 0c c6 17 e7 20 79 25 |........|..... y%|
|00002890| 3e 35 32 38 20 80 20 79 | 25 3c 35 38 38 20 8c 0d |>528 . y|%<588 ..|
|000028a0| 0c d0 20 20 20 20 20 20 | 3a 20 e7 20 62 75 74 74 |..      |: . butt|
|000028b0| 6f 6e 25 3d 32 20 80 20 | 49 6e 66 6f 25 20 8c 0d |on%=2 . |Info% ..|
|000028c0| 0c da 44 20 20 20 20 20 | 3a 20 49 6e 66 6f 24 28 |..D     |: Info$(|
|000028d0| 31 29 3d 22 4e 61 6d 65 | 20 46 69 65 6c 64 3a 20 |1)="Name| Field: |
|000028e0| 45 64 69 74 20 62 75 74 | 74 6f 6e 20 74 6f 20 65 |Edit but|ton to e|
|000028f0| 64 69 74 2e 22 20 3a 20 | 49 6e 66 6f 24 28 32 29 |dit." : |Info$(2)|
|00002900| 3d 22 22 0d 0c e4 28 20 | 20 20 20 20 3a 20 f2 72 |=""...( |    : .r|
|00002910| 65 64 72 61 77 57 69 6e | 64 6f 77 28 57 69 6e 64 |edrawWin|dow(Wind|
|00002920| 6f 77 25 28 39 29 29 20 | 3a 20 e1 0d 0c ee 1a cc |ow%(9)) |: ......|
|00002930| 20 3a 20 e7 20 45 64 69 | 74 25 20 8c 20 f2 65 64 | : . Edi|t% . .ed|
|00002940| 69 74 28 31 29 0d 0c f8 | 05 cd 0d 0d 02 05 cd 0d |it(1)...|........|
|00002950| 0d 0c 17 e7 20 79 25 3e | 32 34 30 20 80 20 79 25 |.... y%>|240 . y%|
|00002960| 3c 35 32 30 20 8c 0d 0d | 16 20 20 20 20 20 20 3a |<520 ...|.      :|
|00002970| 20 e7 20 62 75 74 74 6f | 6e 25 3d 32 20 80 20 49 | . butto|n%=2 . I|
|00002980| 6e 66 6f 25 20 8c 0d 0d | 20 47 20 20 20 20 20 3a |nfo% ...| G     :|
|00002990| 20 49 6e 66 6f 24 28 31 | 29 3d 22 41 64 64 72 65 | Info$(1|)="Addre|
|000029a0| 73 73 20 46 69 65 6c 64 | 3a 20 45 64 69 74 20 62 |ss Field|: Edit b|
|000029b0| 75 74 74 6f 6e 20 74 6f | 20 65 64 69 74 2e 22 20 |utton to| edit." |
|000029c0| 3a 20 49 6e 66 6f 24 28 | 32 29 3d 22 22 0d 0d 2a |: Info$(|2)=""..*|
|000029d0| 28 20 20 20 20 20 3a 20 | f2 72 65 64 72 61 77 57 |(     : |.redrawW|
|000029e0| 69 6e 64 6f 77 28 57 69 | 6e 64 6f 77 25 28 39 29 |indow(Wi|ndow%(9)|
|000029f0| 29 20 3a 20 e1 0d 0d 34 | 1a cc 20 3a 20 e7 20 45 |) : ...4|.. : . E|
|00002a00| 64 69 74 25 20 8c 20 f2 | 65 64 69 74 28 32 29 0d |dit% . .|edit(2).|
|00002a10| 0d 3e 05 cd 0d 0d 48 05 | cd 0d 0d 52 17 e7 20 79 |.>....H.|...R.. y|
|00002a20| 25 3e 31 32 38 20 80 20 | 79 25 3c 32 33 32 20 8c |%>128 . |y%<232 .|
|00002a30| 0d 0d 5c 20 20 20 20 20 | 20 3a 20 e7 20 62 75 74 |..\     | : . but|
|00002a40| 74 6f 6e 25 3d 32 20 80 | 20 49 6e 66 6f 25 20 8c |ton%=2 .| Info% .|
|00002a50| 0d 0d 66 49 20 20 20 20 | 20 3a 20 49 6e 66 6f 24 |..fI    | : Info$|
|00002a60| 28 31 29 3d 22 54 65 6c | 65 70 68 6f 6e 65 20 46 |(1)="Tel|ephone F|
|00002a70| 69 65 6c 64 3a 20 45 64 | 69 74 20 62 75 74 74 6f |ield: Ed|it butto|
|00002a80| 6e 20 74 6f 20 65 64 69 | 74 2e 22 20 3a 20 49 6e |n to edi|t." : In|
|00002a90| 66 6f 24 28 32 29 3d 22 | 22 0d 0d 70 28 20 20 20 |fo$(2)="|"..p(   |
|00002aa0| 20 20 3a 20 f2 72 65 64 | 72 61 77 57 69 6e 64 6f |  : .red|rawWindo|
|00002ab0| 77 28 57 69 6e 64 6f 77 | 25 28 39 29 29 20 3a 20 |w(Window|%(9)) : |
|00002ac0| e1 0d 0d 7a 1a cc 20 3a | 20 e7 20 45 64 69 74 25 |...z.. :| . Edit%|
|00002ad0| 20 8c 20 f2 65 64 69 74 | 28 33 29 0d 0d 84 05 cd | . .edit|(3).....|
|00002ae0| 0d 0d 8e 05 cd 0d 0d 98 | 17 e7 20 79 25 3e 31 36 |........|.. y%>16|
|00002af0| 20 20 80 20 79 25 3c 31 | 32 30 20 8c 0d 0d a2 20 |  . y%<1|20 .... |
|00002b00| 20 20 20 20 20 3a 20 e7 | 20 62 75 74 74 6f 6e 25 |     : .| button%|
|00002b10| 3d 32 20 80 20 49 6e 66 | 6f 25 20 8c 0d 0d ac 47 |=2 . Inf|o% ....G|
|00002b20| 20 20 20 20 20 3a 20 49 | 6e 66 6f 24 28 31 29 3d |     : I|nfo$(1)=|
|00002b30| 22 52 65 6d 61 72 6b 73 | 20 46 69 65 6c 64 3a 20 |"Remarks| Field: |
|00002b40| 45 64 69 74 20 62 75 74 | 74 6f 6e 20 74 6f 20 65 |Edit but|ton to e|
|00002b50| 64 69 74 2e 22 20 3a 20 | 49 6e 66 6f 24 28 32 29 |dit." : |Info$(2)|
|00002b60| 3d 22 22 0d 0d b6 28 20 | 20 20 20 20 3a 20 f2 72 |=""...( |    : .r|
|00002b70| 65 64 72 61 77 57 69 6e | 64 6f 77 28 57 69 6e 64 |edrawWin|dow(Wind|
|00002b80| 6f 77 25 28 39 29 29 20 | 3a 20 e1 0d 0d c0 1a cc |ow%(9)) |: ......|
|00002b90| 20 3a 20 e7 20 45 64 69 | 74 25 20 8c 20 f2 65 64 | : . Edi|t% . .ed|
|00002ba0| 69 74 28 34 29 0d 0d ca | 05 cd 0d 0d d4 05 cd 0d |it(4)...|........|
|00002bb0| 0d de 05 e1 0d 0d e8 05 | 3a 0d 0d f2 22 dd 20 f2 |........|:...". .|
|00002bc0| 73 65 61 72 63 68 53 65 | 6c 65 63 74 28 78 25 2c |searchSe|lect(x%,|
|00002bd0| 79 25 2c 62 75 74 74 6f | 6e 25 29 0d 0d fc 17 e7 |y%,butto|n%).....|
|00002be0| 20 79 25 3e 35 39 36 20 | 80 20 79 25 3c 36 35 36 | y%>596 |. y%<656|
|00002bf0| 20 8c 0d 0e 06 20 20 20 | 20 20 20 3a 20 e7 20 62 | ....   |   : . b|
|00002c00| 75 74 74 6f 6e 25 3d 32 | 20 80 20 49 6e 66 6f 25 |utton%=2| . Info%|
|00002c10| 20 8c 0d 0e 10 41 20 20 | 20 20 20 3a 20 49 6e 66 | ....A  |   : Inf|
|00002c20| 6f 24 28 31 29 3d 22 53 | 65 61 72 63 68 20 53 74 |o$(1)="S|earch St|
|00002c30| 72 69 6e 67 3a 20 43 6c | 69 63 6b 20 74 6f 20 65 |ring: Cl|ick to e|
|00002c40| 64 69 74 2e 22 20 3a 20 | 49 6e 66 6f 24 28 32 29 |dit." : |Info$(2)|
|00002c50| 3d 22 22 0d 0e 1a 28 20 | 20 20 20 20 3a 20 f2 72 |=""...( |    : .r|
|00002c60| 65 64 72 61 77 57 69 6e | 64 6f 77 28 57 69 6e 64 |edrawWin|dow(Wind|
|00002c70| 6f 77 25 28 39 29 29 20 | 3a 20 e1 0d 0e 24 38 cc |ow%(9)) |: ...$8.|
|00002c80| 20 3a 20 53 65 61 72 63 | 68 24 3d a4 65 6e 74 65 | : Searc|h$=.ente|
|00002c90| 72 53 74 72 69 6e 67 28 | 36 30 2c 36 30 38 2c 32 |rString(|60,608,2|
|00002ca0| 37 36 2c 33 36 2c 53 65 | 61 72 63 68 24 2c 33 30 |76,36,Se|arch$,30|
|00002cb0| 2c 30 29 0d 0e 2e 47 20 | 20 20 20 20 3a 20 46 6f |,0)...G |    : Fo|
|00002cc0| 75 6e 64 25 3d 30 20 3a | 20 46 72 65 63 25 3d 31 |und%=0 :| Frec%=1|
|00002cd0| 20 3a 20 53 65 61 72 63 | 68 25 28 29 3d 30 20 3a | : Searc|h%()=0 :|
|00002ce0| 20 f2 66 72 61 6d 65 28 | 31 31 2c 32 34 38 2c 31 | .frame(|11,248,1|
|00002cf0| 32 38 2c 32 32 34 2c 36 | 30 29 0d 0e 38 33 20 20 |28,224,6|0)..83  |
|00002d00| 20 20 20 3a 20 f2 74 65 | 78 74 28 32 36 30 2c 31 |   : .te|xt(260,1|
|00002d10| 37 32 2c 30 2c 22 46 6f | 75 6e 64 3d 20 22 2b c3 |72,0,"Fo|und= "+.|
|00002d20| 28 46 6f 75 6e 64 25 29 | 29 20 3a 20 e1 0d 0e 42 |(Found%)|) : ...B|
|00002d30| 05 cd 0d 0e 4c 05 cd 0d | 0e 56 0e e7 20 78 25 3c |....L...|.V.. x%<|
|00002d40| 32 34 30 20 8c 0d 0e 60 | 1e 20 20 20 20 20 3a 20 |240 ...`|.     : |
|00002d50| e7 20 79 25 3e 35 32 38 | 20 80 20 79 25 3c 35 38 |. y%>528| . y%<58|
|00002d60| 38 20 8c 0d 0e 6a 20 20 | 20 20 20 20 3a 20 e7 20 |8 ...j  |    : . |
|00002d70| 62 75 74 74 6f 6e 25 3d | 32 20 80 20 49 6e 66 6f |button%=|2 . Info|
|00002d80| 25 20 8c 0d 0e 74 3b 20 | 20 20 20 20 3a 20 49 6e |% ...t; |    : In|
|00002d90| 66 6f 24 28 31 29 3d 22 | 4e 61 6d 65 20 66 69 65 |fo$(1)="|Name fie|
|00002da0| 6c 64 3a 20 53 65 61 72 | 63 68 20 62 79 20 2d 22 |ld: Sear|ch by -"|
|00002db0| 20 3a 20 49 6e 66 6f 24 | 28 32 29 3d 22 22 0d 0e | : Info$|(2)=""..|
|00002dc0| 7e 28 20 20 20 20 20 3a | 20 f2 72 65 64 72 61 77 |~(     :| .redraw|
|00002dd0| 57 69 6e 64 6f 77 28 57 | 69 6e 64 6f 77 25 28 39 |Window(W|indow%(9|
|00002de0| 29 29 20 3a 20 e1 0d 0e | 88 1d cc 20 3a 20 f2 73 |)) : ...|... : .s|
|00002df0| 65 61 72 63 68 28 31 29 | 20 3a 20 f2 64 69 73 70 |earch(1)| : .disp|
|00002e00| 6c 61 79 0d 0e 92 0c 20 | 20 20 20 20 3a 20 e1 0d |lay.... |    : ..|
|00002e10| 0e 9c 05 cd 0d 0e a6 05 | cd 0d 0e b0 1e 20 20 20 |........|.....   |
|00002e20| 20 20 3a 20 e7 20 79 25 | 3e 32 34 30 20 80 20 79 |  : . y%|>240 . y|
|00002e30| 25 3c 35 32 30 20 8c 0d | 0e ba 20 20 20 20 20 20 |%<520 ..|..      |
|00002e40| 3a 20 e7 20 62 75 74 74 | 6f 6e 25 3d 32 20 80 20 |: . butt|on%=2 . |
|00002e50| 49 6e 66 6f 25 20 8c 0d | 0e c4 3e 20 20 20 20 20 |Info% ..|..>     |
|00002e60| 3a 20 49 6e 66 6f 24 28 | 31 29 3d 22 41 64 64 72 |: Info$(|1)="Addr|
|00002e70| 65 73 73 20 66 69 65 6c | 64 3a 20 53 65 61 72 63 |ess fiel|d: Searc|
|00002e80| 68 20 62 79 20 2d 22 20 | 3a 20 49 6e 66 6f 24 28 |h by -" |: Info$(|
|00002e90| 32 29 3d 22 22 0d 0e ce | 28 20 20 20 20 20 3a 20 |2)=""...|(     : |
|00002ea0| f2 72 65 64 72 61 77 57 | 69 6e 64 6f 77 28 57 69 |.redrawW|indow(Wi|
|00002eb0| 6e 64 6f 77 25 28 39 29 | 29 20 3a 20 e1 0d 0e d8 |ndow%(9)|) : ....|
|00002ec0| 1d cc 20 3a 20 f2 73 65 | 61 72 63 68 28 32 29 20 |.. : .se|arch(2) |
|00002ed0| 3a 20 f2 64 69 73 70 6c | 61 79 0d 0e e2 0c 20 20 |: .displ|ay....  |
|00002ee0| 20 20 20 3a 20 e1 0d 0e | ec 05 cd 0d 0e f6 05 cd |   : ...|........|
|00002ef0| 0d 0f 00 1e 20 20 20 20 | 20 3a 20 e7 20 79 25 3e |....    | : . y%>|
|00002f00| 31 32 38 20 80 20 79 25 | 3c 32 33 32 20 8c 0d 0f |128 . y%|<232 ...|
|00002f10| 0a 20 20 20 20 20 20 3a | 20 e7 20 62 75 74 74 6f |.      :| . butto|
|00002f20| 6e 25 3d 32 20 80 20 49 | 6e 66 6f 25 20 8c 0d 0f |n%=2 . I|nfo% ...|
|00002f30| 14 40 20 20 20 20 20 3a | 20 49 6e 66 6f 24 28 31 |.@     :| Info$(1|
|00002f40| 29 3d 22 54 65 6c 65 70 | 68 6f 6e 65 20 66 69 65 |)="Telep|hone fie|
|00002f50| 6c 64 3a 20 53 65 61 72 | 63 68 20 62 79 20 2d 22 |ld: Sear|ch by -"|
|00002f60| 20 3a 20 49 6e 66 6f 24 | 28 32 29 3d 22 22 0d 0f | : Info$|(2)=""..|
|00002f70| 1e 28 20 20 20 20 20 3a | 20 f2 72 65 64 72 61 77 |.(     :| .redraw|
|00002f80| 57 69 6e 64 6f 77 28 57 | 69 6e 64 6f 77 25 28 39 |Window(W|indow%(9|
|00002f90| 29 29 20 3a 20 e1 0d 0f | 28 1d cc 20 3a 20 f2 73 |)) : ...|(.. : .s|
|00002fa0| 65 61 72 63 68 28 33 29 | 20 3a 20 f2 64 69 73 70 |earch(3)| : .disp|
|00002fb0| 6c 61 79 0d 0f 32 0c 20 | 20 20 20 20 3a 20 e1 0d |lay..2. |    : ..|
|00002fc0| 0f 3c 05 cd 0d 0f 46 05 | cd 0d 0f 50 1d 20 20 20 |.<....F.|...P.   |
|00002fd0| 20 20 3a 20 e7 20 79 25 | 3e 31 36 20 80 20 79 25 |  : . y%|>16 . y%|
|00002fe0| 3c 31 32 30 20 8c 0d 0f | 5a 20 20 20 20 20 20 3a |<120 ...|Z      :|
|00002ff0| 20 e7 20 62 75 74 74 6f | 6e 25 3d 32 20 80 20 49 | . butto|n%=2 . I|
|00003000| 6e 66 6f 25 20 8c 0d 0f | 64 3e 20 20 20 20 20 3a |nfo% ...|d>     :|
|00003010| 20 49 6e 66 6f 24 28 31 | 29 3d 22 52 65 6d 61 72 | Info$(1|)="Remar|
|00003020| 6b 73 20 66 69 65 6c 64 | 3a 20 53 65 61 72 63 68 |ks field|: Search|
|00003030| 20 62 79 20 2d 22 20 3a | 20 49 6e 66 6f 24 28 32 | by -" :| Info$(2|
|00003040| 29 3d 22 22 0d 0f 6e 28 | 20 20 20 20 20 3a 20 f2 |)=""..n(|     : .|
|00003050| 72 65 64 72 61 77 57 69 | 6e 64 6f 77 28 57 69 6e |redrawWi|ndow(Win|
|00003060| 64 6f 77 25 28 39 29 29 | 20 3a 20 e1 0d 0f 78 1d |dow%(9))| : ...x.|
|00003070| cc 20 3a 20 f2 73 65 61 | 72 63 68 28 34 29 20 3a |. : .sea|rch(4) :|
|00003080| 20 f2 64 69 73 70 6c 61 | 79 0d 0f 82 0c 20 20 20 | .displa|y....   |
|00003090| 20 20 3a 20 e1 0d 0f 8c | 05 cd 0d 0f 96 05 cd 0d |  : ....|........|
|000030a0| 0f a0 05 cd 0d 0f aa 0e | e7 20 78 25 3e 32 34 38 |........|. x%>248|
|000030b0| 20 8c 0d 0f b4 1e 20 20 | 20 20 20 3a 20 e7 20 79 | .....  |   : . y|
|000030c0| 25 3e 31 39 36 20 80 20 | 79 25 3c 35 38 38 20 8c |%>196 . |y%<588 .|
|000030d0| 0d 0f be 20 20 20 20 20 | 20 3a 20 e7 20 62 75 74 |...     | : . but|
|000030e0| 74 6f 6e 25 3d 32 20 80 | 20 49 6e 66 6f 25 20 8c |ton%=2 .| Info% .|
|000030f0| 0d 0f c8 3b 20 20 20 20 | 20 3a 20 49 6e 66 6f 24 |...;    | : Info$|
|00003100| 28 31 29 3d 22 41 6c 6c | 20 66 69 65 6c 64 73 3a |(1)="All| fields:|
|00003110| 20 53 65 61 72 63 68 20 | 62 79 20 2d 22 20 3a 20 | Search |by -" : |
|00003120| 49 6e 66 6f 24 28 32 29 | 3d 22 22 0d 0f d2 28 20 |Info$(2)|=""...( |
|00003130| 20 20 20 20 3a 20 f2 72 | 65 64 72 61 77 57 69 6e |    : .r|edrawWin|
|00003140| 64 6f 77 28 57 69 6e 64 | 6f 77 25 28 39 29 29 20 |dow(Wind|ow%(9)) |
|00003150| 3a 20 e1 0d 0f dc 39 cc | 20 3a 20 f2 73 65 61 72 |: ....9.| : .sear|
|00003160| 63 68 28 31 29 20 3a 20 | f2 73 65 61 72 63 68 28 |ch(1) : |.search(|
|00003170| 32 29 20 3a 20 f2 73 65 | 61 72 63 68 28 33 29 20 |2) : .se|arch(3) |
|00003180| 3a 20 f2 73 65 61 72 63 | 68 28 34 29 0d 0f e6 13 |: .searc|h(4)....|
|00003190| 20 20 20 20 20 3a 20 f2 | 64 69 73 70 6c 61 79 0d |     : .|display.|
|000031a0| 0f f0 0c 20 20 20 20 20 | 3a 20 e1 0d 0f fa 05 cd |...     |: ......|
|000031b0| 0d 10 04 05 cd 0d 10 0e | 1d 20 20 20 20 20 3a 20 |........|.     : |
|000031c0| e7 20 79 25 3e 31 36 20 | 80 20 79 25 3c 31 32 30 |. y%>16 |. y%<120|
|000031d0| 20 8c 0d 10 18 15 20 20 | 20 20 20 3a 20 e7 20 78 | .....  |   : . x|
|000031e0| 25 3c 33 36 30 20 8c 0d | 10 22 20 20 20 20 20 20 |%<360 ..|."      |
|000031f0| 3a 20 e7 20 62 75 74 74 | 6f 6e 25 3d 32 20 80 20 |: . butt|on%=2 . |
|00003200| 49 6e 66 6f 25 20 8c 0d | 10 2c 38 20 20 20 20 20 |Info% ..|.,8     |
|00003210| 3a 20 49 6e 66 6f 24 28 | 31 29 3d 22 42 61 63 6b |: Info$(|1)="Back|
|00003220| 20 42 75 74 74 6f 6e 3a | 20 47 6f 20 62 61 63 6b | Button:| Go back|
|00003230| 20 74 68 72 6f 75 67 68 | 20 66 6f 75 6e 64 22 0d | through| found".|
|00003240| 10 36 23 20 20 20 20 20 | 3a 20 49 6e 66 6f 24 28 |.6#     |: Info$(|
|00003250| 32 29 3d 22 72 65 63 6f | 72 64 73 20 2e 2e 2e 2e |2)="reco|rds ....|
|00003260| 2e 22 0d 10 40 28 20 20 | 20 20 20 3a 20 f2 72 65 |."..@(  |   : .re|
|00003270| 64 72 61 77 57 69 6e 64 | 6f 77 28 57 69 6e 64 6f |drawWind|ow(Windo|
|00003280| 77 25 28 39 29 29 20 3a | 20 e1 0d 10 4a 30 cc 20 |w%(9)) :| ...J0. |
|00003290| 3a 20 46 72 65 63 25 2d | 3d 31 20 3a 20 e7 20 46 |: Frec%-|=1 : . F|
|000032a0| 72 65 63 25 3c 31 20 8c | 20 ef 20 37 20 3a 20 46 |rec%<1 .| . 7 : F|
|000032b0| 72 65 63 25 3d 31 20 3a | 20 e1 0d 10 54 41 20 20 |rec%=1 :| ...TA  |
|000032c0| 20 20 20 3a 20 52 65 63 | 6f 72 64 25 3d 53 65 61 |   : Rec|ord%=Sea|
|000032d0| 72 63 68 25 28 46 72 65 | 63 25 29 20 3a 20 f2 72 |rch%(Fre|c%) : .r|
|000032e0| 65 64 72 61 77 57 69 6e | 64 6f 77 28 57 69 6e 64 |edrawWin|dow(Wind|
|000032f0| 6f 77 25 28 34 29 29 20 | 3a 20 e1 0d 10 5e 05 cd |ow%(4)) |: ...^..|
|00003300| 0d 10 68 05 cd 0d 10 72 | 15 20 20 20 20 20 3a 20 |..h....r|.     : |
|00003310| e7 20 78 25 3e 33 36 38 | 20 8c 0d 10 7c 20 20 20 |. x%>368| ...|   |
|00003320| 20 20 20 3a 20 e7 20 62 | 75 74 74 6f 6e 25 3d 32 |   : . b|utton%=2|
|00003330| 20 80 20 49 6e 66 6f 25 | 20 8c 0d 10 86 3e 20 20 | . Info%| ....>  |
|00003340| 20 20 20 3a 20 49 6e 66 | 6f 24 28 31 29 3d 22 46 |   : Inf|o$(1)="F|
|00003350| 6f 72 77 61 72 64 20 42 | 75 74 74 6f 6e 3a 20 47 |orward B|utton: G|
|00003360| 6f 20 66 6f 72 77 61 72 | 64 20 74 68 72 6f 75 67 |o forwar|d throug|
|00003370| 68 20 66 6f 75 6e 64 22 | 0d 10 90 23 20 20 20 20 |h found"|...#    |
|00003380| 20 3a 20 49 6e 66 6f 24 | 28 32 29 3d 22 72 65 63 | : Info$|(2)="rec|
|00003390| 6f 72 64 73 20 2e 2e 2e | 2e 2e 22 0d 10 9a 28 20 |ords ...|.."...( |
|000033a0| 20 20 20 20 3a 20 f2 72 | 65 64 72 61 77 57 69 6e |    : .r|edrawWin|
|000033b0| 64 6f 77 28 57 69 6e 64 | 6f 77 25 28 39 29 29 20 |dow(Wind|ow%(9)) |
|000033c0| 3a 20 e1 0d 10 a4 3a cc | 20 3a 20 46 72 65 63 25 |: ....:.| : Frec%|
|000033d0| 2b 3d 31 20 3a 20 e7 20 | 46 72 65 63 25 3e 46 6f |+=1 : . |Frec%>Fo|
|000033e0| 75 6e 64 25 20 8c 20 ef | 20 37 20 3a 20 46 72 65 |und% . .| 7 : Fre|
|000033f0| 63 25 3d 46 6f 75 6e 64 | 25 20 3a 20 e1 0d 10 ae |c%=Found|% : ....|
|00003400| 41 20 20 20 20 20 3a 20 | 52 65 63 6f 72 64 25 3d |A     : |Record%=|
|00003410| 53 65 61 72 63 68 25 28 | 46 72 65 63 25 29 20 3a |Search%(|Frec%) :|
|00003420| 20 f2 72 65 64 72 61 77 | 57 69 6e 64 6f 77 28 57 | .redraw|Window(W|
|00003430| 69 6e 64 6f 77 25 28 34 | 29 29 20 3a 20 e1 0d 10 |indow%(4|)) : ...|
|00003440| b8 05 cd 0d 10 c2 05 cd | 0d 10 cc 05 cd 0d 10 d6 |........|........|
|00003450| 1e 20 20 20 20 20 3a 20 | e7 20 79 25 3e 31 32 38 |.     : |. y%>128|
|00003460| 20 80 20 79 25 3c 31 38 | 38 20 8c 0d 10 e0 20 20 | . y%<18|8 ....  |
|00003470| 20 20 20 20 3a 20 e7 20 | 62 75 74 74 6f 6e 25 3d |    : . |button%=|
|00003480| 32 20 80 20 49 6e 66 6f | 25 20 8c 0d 10 ea 3c 20 |2 . Info|% ....< |
|00003490| 20 20 20 20 3a 20 49 6e | 66 6f 24 28 31 29 3d 22 |    : In|fo$(1)="|
|000034a0| 46 6f 75 6e 64 20 72 65 | 63 6f 72 64 73 3a 20 4e |Found re|cords: N|
|000034b0| 75 6d 62 65 72 20 6f 66 | 20 72 65 63 6f 72 64 73 |umber of| records|
|000034c0| 20 66 6f 75 6e 64 22 0d | 10 f4 38 20 20 20 20 20 | found".|..8     |
|000034d0| 3a 20 49 6e 66 6f 24 28 | 32 29 3d 22 61 63 63 6f |: Info$(|2)="acco|
|000034e0| 72 64 69 6e 67 20 74 6f | 20 73 65 61 72 63 68 20 |rding to| search |
|000034f0| 63 72 69 74 65 72 69 61 | 20 2e 2e 2e 2e 2e 22 0d |criteria| .....".|
|00003500| 10 fe 28 20 20 20 20 20 | 3a 20 f2 72 65 64 72 61 |..(     |: .redra|
|00003510| 77 57 69 6e 64 6f 77 28 | 57 69 6e 64 6f 77 25 28 |wWindow(|Window%(|
|00003520| 39 29 29 20 3a 20 e1 0d | 11 08 05 cd 0d 11 12 05 |9)) : ..|........|
|00003530| cd 0d 11 1c 05 cd 0d 11 | 26 05 e1 0d 11 30 05 3a |........|&....0.:|
|00003540| 0d 11 3a 23 dd 20 f2 70 | 72 69 6e 74 65 72 53 65 |..:#. .p|rinterSe|
|00003550| 6c 65 63 74 28 78 25 2c | 79 25 2c 62 75 74 74 6f |lect(x%,|y%,butto|
|00003560| 6e 25 29 0d 11 44 16 e7 | 20 78 25 3e 31 36 20 80 |n%)..D..| x%>16 .|
|00003570| 20 78 25 3c 32 34 30 20 | 8c 0d 11 4e 1e 20 20 20 | x%<240 |...N.   |
|00003580| 20 20 3a 20 e7 20 79 25 | 3e 35 39 36 20 80 20 79 |  : . y%|>596 . y|
|00003590| 25 3c 36 35 36 20 8c 0d | 11 58 20 20 20 20 20 20 |%<656 ..|.X      |
|000035a0| 3a 20 e7 20 62 75 74 74 | 6f 6e 25 3d 32 20 80 20 |: . butt|on%=2 . |
|000035b0| 49 6e 66 6f 25 20 8c 0d | 11 62 37 20 20 20 20 20 |Info% ..|.b7     |
|000035c0| 3a 20 49 6e 66 6f 24 28 | 31 29 3d 22 50 72 69 6e |: Info$(|1)="Prin|
|000035d0| 74 20 2d 20 41 6c 6c 20 | 46 69 65 6c 64 73 2e 22 |t - All |Fields."|
|000035e0| 20 3a 20 49 6e 66 6f 24 | 28 32 29 3d 22 22 0d 11 | : Info$|(2)=""..|
|000035f0| 6c 28 20 20 20 20 20 3a | 20 f2 72 65 64 72 61 77 |l(     :| .redraw|
|00003600| 57 69 6e 64 6f 77 28 57 | 69 6e 64 6f 77 25 28 39 |Window(W|indow%(9|
|00003610| 29 29 20 3a 20 e1 0d 11 | 76 2f cc 20 3a 20 50 72 |)) : ...|v/. : Pr|
|00003620| 69 6e 74 24 3d 22 4e 41 | 54 52 22 20 3a 20 f2 66 |int$="NA|TR" : .f|
|00003630| 72 61 6d 65 28 35 2c 31 | 36 2c 35 39 36 2c 32 32 |rame(5,1|6,596,22|
|00003640| 34 2c 36 30 29 0d 11 80 | 2c 20 20 20 20 20 3a 20 |4,60)...|,     : |
|00003650| f2 74 65 78 74 28 32 38 | 2c 36 34 30 2c 38 2c 22 |.text(28|,640,8,"|
|00003660| 20 41 6c 6c 20 46 69 65 | 6c 64 73 22 29 20 3a 20 | All Fie|lds") : |
|00003670| e1 0d 11 8a 05 cd 0d 11 | 94 05 cd 0d 11 9e 1e 20 |........|....... |
|00003680| 20 20 20 20 3a 20 e7 20 | 79 25 3e 35 32 38 20 80 |    : . |y%>528 .|
|00003690| 20 79 25 3c 35 38 38 20 | 8c 0d 11 a8 20 20 20 20 | y%<588 |....    |
|000036a0| 20 20 3a 20 e7 20 62 75 | 74 74 6f 6e 25 3d 32 20 |  : . bu|tton%=2 |
|000036b0| 80 20 49 6e 66 6f 25 20 | 8c 0d 11 b2 37 20 20 20 |. Info% |....7   |
|000036c0| 20 20 3a 20 49 6e 66 6f | 24 28 31 29 3d 22 50 72 |  : Info|$(1)="Pr|
|000036d0| 69 6e 74 20 2d 20 4e 61 | 6d 65 20 46 69 65 6c 64 |int - Na|me Field|
|000036e0| 2e 22 20 3a 20 49 6e 66 | 6f 24 28 32 29 3d 22 22 |." : Inf|o$(2)=""|
|000036f0| 0d 11 bc 28 20 20 20 20 | 20 3a 20 f2 72 65 64 72 |...(    | : .redr|
|00003700| 61 77 57 69 6e 64 6f 77 | 28 57 69 6e 64 6f 77 25 |awWindow|(Window%|
|00003710| 28 39 29 29 20 3a 20 e1 | 0d 11 c6 40 cc 20 3a 20 |(9)) : .|...@. : |
|00003720| f2 66 72 61 6d 65 28 31 | 34 2c 31 36 2c 35 39 36 |.frame(1|4,16,596|
|00003730| 2c 32 32 34 2c 36 30 29 | 20 3a 20 f2 74 65 78 74 |,224,60)| : .text|
|00003740| 28 32 38 2c 36 34 30 2c | 30 2c 22 20 41 6c 6c 20 |(28,640,|0," All |
|00003750| 46 69 65 6c 64 73 22 29 | 0d 11 d0 30 20 20 20 20 |Fields")|...0    |
|00003760| 20 3a 20 50 72 69 6e 74 | 24 2b 3d 22 4e 22 20 3a | : Print|$+="N" :|
|00003770| 20 f2 66 72 61 6d 65 28 | 35 2c 31 36 2c 35 32 38 | .frame(|5,16,528|
|00003780| 2c 32 32 34 2c 36 30 29 | 0d 11 da 26 20 20 20 20 |,224,60)|...&    |
|00003790| 20 3a 20 f2 74 65 78 74 | 28 32 38 2c 35 37 32 2c | : .text|(28,572,|
|000037a0| 38 2c 22 20 4e 61 6d 65 | 22 29 20 3a 20 e1 0d 11 |8," Name|") : ...|
|000037b0| e4 05 cd 0d 11 ee 05 cd | 0d 11 f8 1e 20 20 20 20 |........|....    |
|000037c0| 20 3a 20 e7 20 79 25 3e | 32 34 30 20 80 20 79 25 | : . y%>|240 . y%|
|000037d0| 3c 35 32 30 20 8c 0d 12 | 02 20 20 20 20 20 20 3a |<520 ...|.      :|
|000037e0| 20 e7 20 62 75 74 74 6f | 6e 25 3d 32 20 80 20 49 | . butto|n%=2 . I|
|000037f0| 6e 66 6f 25 20 8c 0d 12 | 0c 3a 20 20 20 20 20 3a |nfo% ...|.:     :|
|00003800| 20 49 6e 66 6f 24 28 31 | 29 3d 22 50 72 69 6e 74 | Info$(1|)="Print|
|00003810| 20 2d 20 41 64 64 72 65 | 73 73 20 46 69 65 6c 64 | - Addre|ss Field|
|00003820| 2e 22 20 3a 20 49 6e 66 | 6f 24 28 32 29 3d 22 22 |." : Inf|o$(2)=""|
|00003830| 0d 12 16 28 20 20 20 20 | 20 3a 20 f2 72 65 64 72 |...(    | : .redr|
|00003840| 61 77 57 69 6e 64 6f 77 | 28 57 69 6e 64 6f 77 25 |awWindow|(Window%|
|00003850| 28 39 29 29 20 3a 20 e1 | 0d 12 20 40 cc 20 3a 20 |(9)) : .|.. @. : |
|00003860| f2 66 72 61 6d 65 28 31 | 34 2c 31 36 2c 35 39 36 |.frame(1|4,16,596|
|00003870| 2c 32 32 34 2c 36 30 29 | 20 3a 20 f2 74 65 78 74 |,224,60)| : .text|
|00003880| 28 32 38 2c 36 34 30 2c | 30 2c 22 20 41 6c 6c 20 |(28,640,|0," All |
|00003890| 46 69 65 6c 64 73 22 29 | 0d 12 2a 31 20 20 20 20 |Fields")|..*1    |
|000038a0| 20 3a 20 50 72 69 6e 74 | 24 2b 3d 22 41 22 20 3a | : Print|$+="A" :|
|000038b0| 20 f2 66 72 61 6d 65 28 | 35 2c 31 36 2c 32 34 30 | .frame(|5,16,240|
|000038c0| 2c 32 32 34 2c 32 38 30 | 29 0d 12 34 29 20 20 20 |,224,280|)..4)   |
|000038d0| 20 20 3a 20 f2 74 65 78 | 74 28 32 38 2c 35 30 34 |  : .tex|t(28,504|
|000038e0| 2c 38 2c 22 20 41 64 64 | 72 65 73 73 22 29 20 3a |,8," Add|ress") :|
|000038f0| 20 e1 0d 12 3e 05 cd 0d | 12 48 05 cd 0d 12 52 1e | ...>...|.H....R.|
|00003900| 20 20 20 20 20 3a 20 e7 | 20 79 25 3e 31 32 38 20 |     : .| y%>128 |
|00003910| 80 20 79 25 3c 32 33 32 | 20 8c 0d 12 5c 20 20 20 |. y%<232| ...\   |
|00003920| 20 20 20 3a 20 e7 20 62 | 75 74 74 6f 6e 25 3d 32 |   : . b|utton%=2|
|00003930| 20 80 20 49 6e 66 6f 25 | 20 8c 0d 12 66 3c 20 20 | . Info%| ...f<  |
|00003940| 20 20 20 3a 20 49 6e 66 | 6f 24 28 31 29 3d 22 50 |   : Inf|o$(1)="P|
|00003950| 72 69 6e 74 20 2d 20 54 | 65 6c 65 70 68 6f 6e 65 |rint - T|elephone|
|00003960| 20 46 69 65 6c 64 2e 22 | 20 3a 20 49 6e 66 6f 24 | Field."| : Info$|
|00003970| 28 32 29 3d 22 22 0d 12 | 70 28 20 20 20 20 20 3a |(2)=""..|p(     :|
|00003980| 20 f2 72 65 64 72 61 77 | 57 69 6e 64 6f 77 28 57 | .redraw|Window(W|
|00003990| 69 6e 64 6f 77 25 28 39 | 29 29 20 3a 20 e1 0d 12 |indow%(9|)) : ...|
|000039a0| 7a 40 cc 20 3a 20 f2 66 | 72 61 6d 65 28 31 34 2c |z@. : .f|rame(14,|
|000039b0| 31 36 2c 35 39 36 2c 32 | 32 34 2c 36 30 29 20 3a |16,596,2|24,60) :|
|000039c0| 20 f2 74 65 78 74 28 32 | 38 2c 36 34 30 2c 30 2c | .text(2|8,640,0,|
|000039d0| 22 20 41 6c 6c 20 46 69 | 65 6c 64 73 22 29 0d 12 |" All Fi|elds")..|
|000039e0| 84 31 20 20 20 20 20 3a | 20 50 72 69 6e 74 24 2b |.1     :| Print$+|
|000039f0| 3d 22 54 22 20 3a 20 f2 | 66 72 61 6d 65 28 35 2c |="T" : .|frame(5,|
|00003a00| 31 36 2c 31 32 38 2c 32 | 32 34 2c 31 30 34 29 0d |16,128,2|24,104).|
|00003a10| 12 8e 2b 20 20 20 20 20 | 3a 20 f2 74 65 78 74 28 |..+     |: .text(|
|00003a20| 32 38 2c 32 31 36 2c 38 | 2c 22 20 54 65 6c 65 70 |28,216,8|," Telep|
|00003a30| 68 6f 6e 65 22 29 20 3a | 20 e1 0d 12 98 05 cd 0d |hone") :| .......|
|00003a40| 12 a2 05 cd 0d 12 ac 1d | 20 20 20 20 20 3a 20 e7 |........|     : .|
|00003a50| 20 79 25 3e 31 36 20 80 | 20 79 25 3c 31 32 30 20 | y%>16 .| y%<120 |
|00003a60| 8c 0d 12 b6 20 20 20 20 | 20 20 3a 20 e7 20 62 75 |....    |  : . bu|
|00003a70| 74 74 6f 6e 25 3d 32 20 | 80 20 49 6e 66 6f 25 20 |tton%=2 |. Info% |
|00003a80| 8c 0d 12 c0 3a 20 20 20 | 20 20 3a 20 49 6e 66 6f |....:   |  : Info|
|00003a90| 24 28 31 29 3d 22 50 72 | 69 6e 74 20 2d 20 52 65 |$(1)="Pr|int - Re|
|00003aa0| 6d 61 72 6b 73 20 46 69 | 65 6c 64 2e 22 20 3a 20 |marks Fi|eld." : |
|00003ab0| 49 6e 66 6f 24 28 32 29 | 3d 22 22 0d 12 ca 28 20 |Info$(2)|=""...( |
|00003ac0| 20 20 20 20 3a 20 f2 72 | 65 64 72 61 77 57 69 6e |    : .r|edrawWin|
|00003ad0| 64 6f 77 28 57 69 6e 64 | 6f 77 25 28 39 29 29 20 |dow(Wind|ow%(9)) |
|00003ae0| 3a 20 e1 0d 12 d4 40 cc | 20 3a 20 f2 66 72 61 6d |: ....@.| : .fram|
|00003af0| 65 28 31 34 2c 31 36 2c | 35 39 36 2c 32 32 34 2c |e(14,16,|596,224,|
|00003b00| 36 30 29 20 3a 20 f2 74 | 65 78 74 28 32 38 2c 36 |60) : .t|ext(28,6|
|00003b10| 34 30 2c 30 2c 22 20 41 | 6c 6c 20 46 69 65 6c 64 |40,0," A|ll Field|
|00003b20| 73 22 29 0d 12 de 30 20 | 20 20 20 20 3a 20 50 72 |s")...0 |    : Pr|
|00003b30| 69 6e 74 24 2b 3d 22 52 | 22 20 3a 20 f2 66 72 61 |int$+="R|" : .fra|
|00003b40| 6d 65 28 35 2c 31 36 2c | 31 36 2c 32 32 34 2c 31 |me(5,16,|16,224,1|
|00003b50| 30 34 29 0d 12 e8 29 20 | 20 20 20 20 3a 20 f2 74 |04)...) |    : .t|
|00003b60| 65 78 74 28 32 38 2c 31 | 30 34 2c 38 2c 22 20 52 |ext(28,1|04,8," R|
|00003b70| 65 6d 61 72 6b 73 22 29 | 20 3a 20 e1 0d 12 f2 05 |emarks")| : .....|
|00003b80| cd 0d 12 fc 05 cd 0d 13 | 06 05 cd 0d 13 10 0e e7 |........|........|
|00003b90| 20 78 25 3e 32 34 38 20 | 8c 0d 13 1a 1e 20 20 20 | x%>248 |.....   |
|00003ba0| 20 20 3a 20 e7 20 79 25 | 3e 35 32 38 20 80 20 79 |  : . y%|>528 . y|
|00003bb0| 25 3c 35 38 38 20 8c 0d | 13 24 15 20 20 20 20 20 |%<588 ..|.$.     |
|00003bc0| 3a 20 e7 20 78 25 3c 33 | 35 36 20 8c 0d 13 2e 20 |: . x%<3|56 .... |
|00003bd0| 20 20 20 20 20 3a 20 e7 | 20 62 75 74 74 6f 6e 25 |     : .| button%|
|00003be0| 3d 32 20 80 20 49 6e 66 | 6f 25 20 8c 0d 13 38 3c |=2 . Inf|o% ...8<|
|00003bf0| 20 20 20 20 20 3a 20 49 | 6e 66 6f 24 28 31 29 3d |     : I|nfo$(1)=|
|00003c00| 22 50 61 70 65 72 20 43 | 68 61 6e 67 65 20 50 72 |"Paper C|hange Pr|
|00003c10| 6f 6d 70 74 3a 20 4f 4e | 2e 22 20 3a 20 49 6e 66 |ompt: ON|." : Inf|
|00003c20| 6f 24 28 32 29 3d 22 22 | 0d 13 42 28 20 20 20 20 |o$(2)=""|..B(    |
|00003c30| 20 3a 20 f2 72 65 64 72 | 61 77 57 69 6e 64 6f 77 | : .redr|awWindow|
|00003c40| 28 57 69 6e 64 6f 77 25 | 28 39 29 29 20 3a 20 e1 |(Window%|(9)) : .|
|00003c50| 0d 13 4c 3a cc 20 3a 20 | f2 66 72 61 6d 65 28 31 |..L:. : |.frame(1|
|00003c60| 34 2c 33 36 34 2c 35 32 | 38 2c 31 30 38 2c 36 30 |4,364,52|8,108,60|
|00003c70| 29 20 3a 20 f2 74 65 78 | 74 28 33 37 36 2c 35 37 |) : .tex|t(376,57|
|00003c80| 32 2c 30 2c 22 4f 46 46 | 22 29 0d 13 56 3c 20 20 |2,0,"OFF|")..V<  |
|00003c90| 20 20 20 3a 20 f2 66 72 | 61 6d 65 28 35 2c 32 34 |   : .fr|ame(5,24|
|00003ca0| 38 2c 35 32 38 2c 31 30 | 38 2c 36 30 29 20 20 3a |8,528,10|8,60)  :|
|00003cb0| 20 f2 74 65 78 74 28 32 | 36 30 2c 35 37 32 2c 38 | .text(2|60,572,8|
|00003cc0| 2c 22 4f 4e 22 29 0d 13 | 60 18 20 20 20 20 20 3a |,"ON")..|`.     :|
|00003cd0| 20 50 72 6f 6d 70 74 25 | 3d b9 20 3a 20 e1 0d 13 | Prompt%|=. : ...|
|00003ce0| 6a 05 cd 0d 13 74 05 cd | 0d 13 7e 15 20 20 20 20 |j....t..|..~.    |
|00003cf0| 20 3a 20 e7 20 78 25 3e | 33 36 34 20 8c 0d 13 88 | : . x%>|364 ....|
|00003d00| 20 20 20 20 20 20 3a 20 | e7 20 62 75 74 74 6f 6e |      : |. button|
|00003d10| 25 3d 32 20 80 20 49 6e | 66 6f 25 20 8c 0d 13 92 |%=2 . In|fo% ....|
|00003d20| 3d 20 20 20 20 20 3a 20 | 49 6e 66 6f 24 28 31 29 |=     : |Info$(1)|
|00003d30| 3d 22 50 61 70 65 72 20 | 43 68 61 6e 67 65 20 50 |="Paper |Change P|
|00003d40| 72 6f 6d 70 74 3a 20 4f | 46 46 2e 22 20 3a 20 49 |rompt: O|FF." : I|
|00003d50| 6e 66 6f 24 28 32 29 3d | 22 22 0d 13 9c 28 20 20 |nfo$(2)=|""...(  |
|00003d60| 20 20 20 3a 20 f2 72 65 | 64 72 61 77 57 69 6e 64 |   : .re|drawWind|
|00003d70| 6f 77 28 57 69 6e 64 6f | 77 25 28 39 29 29 20 3a |ow(Windo|w%(9)) :|
|00003d80| 20 e1 0d 13 a6 39 cc 20 | 3a 20 f2 66 72 61 6d 65 | ....9. |: .frame|
|00003d90| 28 31 34 2c 32 34 38 2c | 35 32 38 2c 31 30 38 2c |(14,248,|528,108,|
|00003da0| 36 30 29 20 3a 20 f2 74 | 65 78 74 28 32 36 30 2c |60) : .t|ext(260,|
|00003db0| 35 37 32 2c 30 2c 22 4f | 4e 22 29 0d 13 b0 3d 20 |572,0,"O|N")...= |
|00003dc0| 20 20 20 20 3a 20 f2 66 | 72 61 6d 65 28 35 2c 33 |    : .f|rame(5,3|
|00003dd0| 36 34 2c 35 32 38 2c 31 | 30 38 2c 36 30 29 20 20 |64,528,1|08,60)  |
|00003de0| 3a 20 f2 74 65 78 74 28 | 33 37 36 2c 35 37 32 2c |: .text(|376,572,|
|00003df0| 38 2c 22 4f 46 46 22 29 | 0d 13 ba 18 20 20 20 20 |8,"OFF")|....    |
|00003e00| 20 3a 20 50 72 6f 6d 70 | 74 25 3d a3 20 3a 20 e1 | : Promp|t%=. : .|
|00003e10| 0d 13 c4 05 cd 0d 13 ce | 05 cd 0d 13 d8 05 cd 0d |........|........|
|00003e20| 13 e2 1e 20 20 20 20 20 | 3a 20 e7 20 79 25 3e 33 |...     |: . y%>3|
|00003e30| 37 36 20 80 20 79 25 3c | 34 33 36 20 8c 0d 13 ec |76 . y%<|436 ....|
|00003e40| 20 20 20 20 20 20 3a 20 | e7 20 62 75 74 74 6f 6e |      : |. button|
|00003e50| 25 3d 32 20 80 20 49 6e | 66 6f 25 20 8c 0d 13 f6 |%=2 . In|fo% ....|
|00003e60| 38 20 20 20 20 20 3a 20 | 49 6e 66 6f 24 28 31 29 |8     : |Info$(1)|
|00003e70| 3d 22 50 72 69 6e 74 20 | 2d 20 41 6c 6c 20 72 65 |="Print |- All re|
|00003e80| 63 6f 72 64 73 2e 22 20 | 3a 20 49 6e 66 6f 24 28 |cords." |: Info$(|
|00003e90| 32 29 3d 22 22 0d 14 00 | 28 20 20 20 20 20 3a 20 |2)=""...|(     : |
|00003ea0| f2 72 65 64 72 61 77 57 | 69 6e 64 6f 77 28 57 69 |.redrawW|indow(Wi|
|00003eb0| 6e 64 6f 77 25 28 39 29 | 29 20 3a 20 e1 0d 14 0a |ndow%(9)|) : ....|
|00003ec0| 3c cc 20 3a 20 f2 66 72 | 61 6d 65 28 31 34 2c 32 |<. : .fr|ame(14,2|
|00003ed0| 34 38 2c 33 30 38 2c 32 | 32 34 2c 36 30 29 20 3a |48,308,2|24,60) :|
|00003ee0| 20 f2 74 65 78 74 28 32 | 36 30 2c 33 35 32 2c 30 | .text(2|60,352,0|
|00003ef0| 2c 22 46 72 6f 6d 3a 22 | 29 0d 14 14 3d 20 20 20 |,"From:"|)...=   |
|00003f00| 20 20 3a 20 f2 66 72 61 | 6d 65 28 31 34 2c 32 34 |  : .fra|me(14,24|
|00003f10| 38 2c 32 34 30 2c 32 32 | 34 2c 36 30 29 20 3a 20 |8,240,22|4,60) : |
|00003f20| f2 74 65 78 74 28 32 36 | 30 2c 32 38 34 2c 30 2c |.text(26|0,284,0,|
|00003f30| 22 54 6f 3a 22 29 0d 14 | 1e 44 20 20 20 20 20 3a |"To:")..|.D     :|
|00003f40| 20 f2 66 72 61 6d 65 28 | 35 2c 32 34 38 2c 33 37 | .frame(|5,248,37|
|00003f50| 36 2c 32 32 34 2c 36 30 | 29 20 20 3a 20 f2 74 65 |6,224,60|)  : .te|
|00003f60| 78 74 28 32 36 30 2c 34 | 32 30 2c 38 2c 22 57 68 |xt(260,4|20,8,"Wh|
|00003f70| 6f 6c 65 20 46 69 6c 65 | 22 29 0d 14 28 27 20 20 |ole File|")..('  |
|00003f80| 20 20 20 3a 20 50 73 74 | 61 72 74 25 3d 31 20 3a |   : Pst|art%=1 :|
|00003f90| 20 50 65 6e 64 25 3d 54 | 6f 74 61 6c 25 20 3a 20 | Pend%=T|otal% : |
|00003fa0| e1 0d 14 32 05 cd 0d 14 | 3c 05 cd 0d 14 46 1e 20 |...2....|<....F. |
|00003fb0| 20 20 20 20 3a 20 e7 20 | 79 25 3e 33 30 38 20 80 |    : . |y%>308 .|
|00003fc0| 20 79 25 3c 33 36 38 20 | 8c 0d 14 50 20 20 20 20 | y%<368 |...P    |
|00003fd0| 20 20 3a 20 e7 20 62 75 | 74 74 6f 6e 25 3d 32 20 |  : . bu|tton%=2 |
|00003fe0| 80 20 49 6e 66 6f 25 20 | 8c 0d 14 5a 3b 20 20 20 |. Info% |...Z;   |
|00003ff0| 20 20 3a 20 49 6e 66 6f | 24 28 31 29 3d 22 50 72 |  : Info|$(1)="Pr|
|00004000| 69 6e 74 20 2d 20 46 72 | 6f 6d 20 52 65 63 6f 72 |int - Fr|om Recor|
|00004010| 64 20 4e 6f 2e 22 20 3a | 20 49 6e 66 6f 24 28 32 |d No." :| Info$(2|
|00004020| 29 3d 22 22 0d 14 64 28 | 20 20 20 20 20 3a 20 f2 |)=""..d(|     : .|
|00004030| 72 65 64 72 61 77 57 69 | 6e 64 6f 77 28 57 69 6e |redrawWi|ndow(Win|
|00004040| 64 6f 77 25 28 39 29 29 | 20 3a 20 e1 0d 14 6e 41 |dow%(9))| : ...nA|
|00004050| cc 20 3a 20 f2 66 72 61 | 6d 65 28 31 34 2c 32 34 |. : .fra|me(14,24|
|00004060| 38 2c 33 37 36 2c 32 32 | 34 2c 36 30 29 20 3a 20 |8,376,22|4,60) : |
|00004070| f2 74 65 78 74 28 32 36 | 30 2c 34 32 30 2c 30 2c |.text(26|0,420,0,|
|00004080| 22 57 68 6f 6c 65 20 46 | 69 6c 65 22 29 0d 14 78 |"Whole F|ile")..x|
|00004090| 23 20 20 20 20 20 3a 20 | f2 74 65 78 74 28 32 36 |#     : |.text(26|
|000040a0| 30 2c 33 35 32 2c 38 2c | 22 46 72 6f 6d 3a 22 29 |0,352,8,|"From:")|
|000040b0| 0d 14 82 3c 20 20 20 20 | 20 3a 20 73 74 61 72 74 |...<    | : start|
|000040c0| 24 3d a4 65 6e 74 65 72 | 53 74 72 69 6e 67 28 33 |$=.enter|String(3|
|000040d0| 36 38 2c 33 32 30 2c 39 | 32 2c 33 36 2c c3 28 50 |68,320,9|2,36,.(P|
|000040e0| 73 74 61 72 74 25 29 2c | 34 2c 38 29 0d 14 8c 20 |start%),|4,8)... |
|000040f0| 20 20 20 20 20 3a 20 50 | 73 74 61 72 74 25 3d bb |     : P|start%=.|
|00004100| 28 73 74 61 72 74 24 29 | 20 3a 20 e1 0d 14 96 05 |(start$)| : .....|
|00004110| cd 0d 14 a0 05 cd 0d 14 | aa 1e 20 20 20 20 20 3a |........|..     :|
|00004120| 20 e7 20 79 25 3e 32 34 | 30 20 80 20 79 25 3c 33 | . y%>24|0 . y%<3|
|00004130| 30 30 20 8c 0d 14 b4 20 | 20 20 20 20 20 3a 20 e7 |00 .... |     : .|
|00004140| 20 62 75 74 74 6f 6e 25 | 3d 32 20 80 20 49 6e 66 | button%|=2 . Inf|
|00004150| 6f 25 20 8c 0d 14 be 39 | 20 20 20 20 20 3a 20 49 |o% ....9|     : I|
|00004160| 6e 66 6f 24 28 31 29 3d | 22 50 72 69 6e 74 20 2d |nfo$(1)=|"Print -|
|00004170| 20 54 6f 20 52 65 63 6f | 72 64 20 4e 6f 2e 22 20 | To Reco|rd No." |
|00004180| 3a 20 49 6e 66 6f 24 28 | 32 29 3d 22 22 0d 14 c8 |: Info$(|2)=""...|
|00004190| 28 20 20 20 20 20 3a 20 | f2 72 65 64 72 61 77 57 |(     : |.redrawW|
|000041a0| 69 6e 64 6f 77 28 57 69 | 6e 64 6f 77 25 28 39 29 |indow(Wi|ndow%(9)|
|000041b0| 29 20 3a 20 e1 0d 14 d2 | 41 cc 20 3a 20 f2 66 72 |) : ....|A. : .fr|
|000041c0| 61 6d 65 28 31 34 2c 32 | 34 38 2c 33 37 36 2c 32 |ame(14,2|48,376,2|
|000041d0| 32 34 2c 36 30 29 20 3a | 20 f2 74 65 78 74 28 32 |24,60) :| .text(2|
|000041e0| 36 30 2c 34 32 30 2c 30 | 2c 22 57 68 6f 6c 65 20 |60,420,0|,"Whole |
|000041f0| 46 69 6c 65 22 29 0d 14 | dc 21 20 20 20 20 20 3a |File")..|.!     :|
|00004200| 20 f2 74 65 78 74 28 32 | 36 30 2c 32 38 34 2c 38 | .text(2|60,284,8|
|00004210| 2c 22 54 6f 3a 22 29 0d | 14 e6 38 20 20 20 20 20 |,"To:").|..8     |
|00004220| 3a 20 65 6e 64 24 3d a4 | 65 6e 74 65 72 53 74 72 |: end$=.|enterStr|
|00004230| 69 6e 67 28 33 36 38 2c | 32 35 32 2c 39 32 2c 33 |ing(368,|252,92,3|
|00004240| 36 2c c3 28 50 65 6e 64 | 25 29 2c 34 2c 38 29 0d |6,.(Pend|%),4,8).|
|00004250| 14 f0 1c 20 20 20 20 20 | 3a 20 50 65 6e 64 25 3d |...     |: Pend%=|
|00004260| bb 28 65 6e 64 24 29 20 | 3a 20 e1 0d 14 fa 05 cd |.(end$) |: ......|
|00004270| 0d 15 04 05 cd 0d 15 0e | 1e 20 20 20 20 20 3a 20 |........|.     : |
|00004280| e7 20 79 25 3e 31 32 38 | 20 80 20 79 25 3c 32 33 |. y%>128| . y%<23|
|00004290| 32 20 8c 0d 15 18 20 20 | 20 20 20 20 3a 20 e7 20 |2 ....  |    : . |
|000042a0| 62 75 74 74 6f 6e 25 3d | 32 20 80 20 49 6e 66 6f |button%=|2 . Info|
|000042b0| 25 20 8c 0d 15 22 40 20 | 20 20 20 20 3a 20 49 6e |% ..."@ |    : In|
|000042c0| 66 6f 24 28 31 29 3d 22 | 50 61 70 65 72 20 43 68 |fo$(1)="|Paper Ch|
|000042d0| 61 6e 67 65 20 50 72 6f | 6d 70 74 3a 20 41 70 70 |ange Pro|mpt: App|
|000042e0| 65 61 72 73 20 77 68 65 | 6e 20 79 6f 75 20 68 61 |ears whe|n you ha|
|000042f0| 76 65 22 0d 15 2c 3f 20 | 20 20 20 20 3a 20 49 6e |ve"..,? |    : In|
|00004300| 66 6f 24 28 32 29 3d 22 | 74 6f 20 63 68 61 6e 67 |fo$(2)="|to chang|
|00004310| 65 20 70 61 70 65 72 2f | 65 6e 76 65 6c 6f 70 65 |e paper/|envelope|
|00004320| 73 20 7b 69 66 20 70 72 | 6f 6d 70 74 20 4f 4e 7d |s {if pr|ompt ON}|
|00004330| 2e 22 0d 15 36 28 20 20 | 20 20 20 3a 20 f2 72 65 |."..6(  |   : .re|
|00004340| 64 72 61 77 57 69 6e 64 | 6f 77 28 57 69 6e 64 6f |drawWind|ow(Windo|
|00004350| 77 25 28 39 29 29 20 3a | 20 e1 0d 15 40 05 cd 0d |w%(9)) :| ...@...|
|00004360| 15 4a 05 cd 0d 15 54 1d | 20 20 20 20 20 3a 20 e7 |.J....T.|     : .|
|00004370| 20 79 25 3e 31 36 20 80 | 20 79 25 3c 31 32 30 20 | y%>16 .| y%<120 |
|00004380| 8c 0d 15 5e 20 20 20 20 | 20 20 3a 20 e7 20 62 75 |...^    |  : . bu|
|00004390| 74 74 6f 6e 25 3d 32 20 | 80 20 49 6e 66 6f 25 20 |tton%=2 |. Info% |
|000043a0| 8c 0d 15 68 41 20 20 20 | 20 20 3a 20 49 6e 66 6f |...hA   |  : Info|
|000043b0| 24 28 31 29 3d 22 50 72 | 69 6e 74 65 72 20 42 75 |$(1)="Pr|inter Bu|
|000043c0| 74 74 6f 6e 3a 20 43 6c | 69 63 6b 20 74 6f 20 73 |tton: Cl|ick to s|
|000043d0| 74 61 72 74 20 70 72 69 | 6e 74 69 6e 67 2e 2e 2e |tart pri|nting...|
|000043e0| 2e 22 0d 15 72 30 20 20 | 20 20 20 3a 20 49 6e 66 |."..r0  |   : Inf|
|000043f0| 6f 24 28 32 29 3d 22 7b | 6f 72 20 61 66 74 65 72 |o$(2)="{|or after|
|00004400| 20 61 20 70 61 70 65 72 | 20 63 68 61 6e 67 65 7d | a paper| change}|
|00004410| 2e 22 0d 15 7c 28 20 20 | 20 20 20 3a 20 f2 72 65 |."..|(  |   : .re|
|00004420| 64 72 61 77 57 69 6e 64 | 6f 77 28 57 69 6e 64 6f |drawWind|ow(Windo|
|00004430| 77 25 28 39 29 29 20 3a | 20 e1 0d 15 86 12 cc 20 |w%(9)) :| ...... |
|00004440| 3a 20 f2 70 72 69 6e 74 | 20 3a 20 e1 0d 15 90 05 |: .print| : .....|
|00004450| cd 0d 15 9a 05 cd 0d 15 | a4 05 cd 0d 15 ae 05 e1 |........|........|
|00004460| 0d 15 b8 05 3a 0d 15 c2 | 20 dd 20 f2 64 69 73 63 |....:...| . .disc|
|00004470| 53 65 6c 65 63 74 28 78 | 25 2c 79 25 2c 62 75 74 |Select(x|%,y%,but|
|00004480| 74 6f 6e 25 29 0d 15 cc | 17 e7 20 79 25 3e 36 37 |ton%)...|.. y%>67|
|00004490| 32 20 80 20 79 25 3c 37 | 34 38 20 8c 0d 15 d6 1d |2 . y%<7|48 .....|
|000044a0| 20 20 20 20 20 3a 20 e7 | 20 78 25 3e 31 36 20 80 |     : .| x%>16 .|
|000044b0| 20 78 25 3c 31 30 34 20 | 8c 0d 15 e0 20 20 20 20 | x%<104 |....    |
|000044c0| 20 20 3a 20 e7 20 62 75 | 74 74 6f 6e 25 3d 32 20 |  : . bu|tton%=2 |
|000044d0| 80 20 49 6e 66 6f 25 20 | 8c 0d 15 ea 4c 20 20 20 |. Info% |....L   |
|000044e0| 20 20 3a 20 49 6e 66 6f | 24 28 31 29 3d 22 44 69 |  : Info|$(1)="Di|
|000044f0| 73 63 20 49 63 6f 6e 3a | 20 43 6c 69 63 6b 20 74 |sc Icon:| Click t|
|00004500| 6f 20 63 61 74 61 6c 6f | 67 75 65 20 64 69 72 65 |o catalo|gue dire|
|00004510| 63 74 6f 72 79 2e 22 20 | 3a 20 49 6e 66 6f 24 28 |ctory." |: Info$(|
|00004520| 32 29 3d 22 22 0d 15 f4 | 28 20 20 20 20 20 3a 20 |2)=""...|(     : |
|00004530| f2 72 65 64 72 61 77 57 | 69 6e 64 6f 77 28 57 69 |.redrawW|indow(Wi|
|00004540| 6e 64 6f 77 25 28 39 29 | 29 20 3a 20 e1 0d 15 fe |ndow%(9)|) : ....|
|00004550| 26 cc 20 3a 20 f2 64 69 | 72 65 63 74 6f 72 79 28 |&. : .di|rectory(|
|00004560| 44 69 72 65 63 74 6f 72 | 79 24 2c 46 69 6c 65 4e |Director|y$,FileN|
|00004570| 6f 25 29 0d 16 08 28 20 | 20 20 20 20 3a 20 f2 72 |o%)...( |    : .r|
|00004580| 65 64 72 61 77 57 69 6e | 64 6f 77 28 57 69 6e 64 |edrawWin|dow(Wind|
|00004590| 6f 77 25 28 32 29 29 20 | 3a 20 e1 0d 16 12 05 cd |ow%(2)) |: ......|
|000045a0| 0d 16 1c 05 cd 0d 16 26 | 15 20 20 20 20 20 3a 20 |.......&|.     : |
|000045b0| e7 20 78 25 3e 31 31 32 | 20 8c 0d 16 30 20 20 20 |. x%>112| ...0   |
|000045c0| 20 20 20 3a 20 e7 20 62 | 75 74 74 6f 6e 25 3d 32 |   : . b|utton%=2|
|000045d0| 20 80 20 49 6e 66 6f 25 | 20 8c 0d 16 3a 46 20 20 | . Info%| ...:F  |
|000045e0| 20 20 20 3a 20 49 6e 66 | 6f 24 28 31 29 3d 22 53 |   : Inf|o$(1)="S|
|000045f0| 65 6c 65 63 74 65 64 20 | 44 69 72 65 63 74 6f 72 |elected |Director|
|00004600| 79 2e 20 43 6c 69 63 6b | 20 74 6f 20 65 64 69 74 |y. Click| to edit|
|00004610| 2e 22 20 3a 20 49 6e 66 | 6f 24 28 32 29 3d 22 22 |." : Inf|o$(2)=""|
|00004620| 0d 16 44 28 20 20 20 20 | 20 3a 20 f2 72 65 64 72 |..D(    | : .redr|
|00004630| 61 77 57 69 6e 64 6f 77 | 28 57 69 6e 64 6f 77 25 |awWindow|(Window%|
|00004640| 28 39 29 29 20 3a 20 e1 | 0d 16 4e 3f cc 20 3a 20 |(9)) : .|..N?. : |
|00004650| 44 69 72 65 63 74 6f 72 | 79 24 3d a4 65 6e 74 65 |Director|y$=.ente|
|00004660| 72 53 74 72 69 6e 67 28 | 31 38 34 2c 36 38 38 2c |rString(|184,688,|
|00004670| 32 37 36 2c 33 36 2c 44 | 69 72 65 63 74 6f 72 79 |276,36,D|irectory|
|00004680| 24 2c 31 30 2c 30 29 0d | 16 58 0c 20 20 20 20 20 |$,10,0).|.X.     |
|00004690| 3a 20 e1 0d 16 62 05 cd | 0d 16 6c 05 cd 0d 16 76 |: ...b..|..l....v|
|000046a0| 05 cd 0d 16 80 16 e7 20 | 79 25 3e 38 34 20 80 20 |....... |y%>84 . |
|000046b0| 79 25 3c 31 34 34 20 8c | 0d 16 8a 20 20 20 20 20 |y%<144 .|...     |
|000046c0| 20 3a 20 e7 20 62 75 74 | 74 6f 6e 25 3d 32 20 80 | : . but|ton%=2 .|
|000046d0| 20 49 6e 66 6f 25 20 8c | 0d 16 94 45 20 20 20 20 | Info% .|...E    |
|000046e0| 20 3a 20 49 6e 66 6f 24 | 28 31 29 3d 22 53 65 6c | : Info$|(1)="Sel|
|000046f0| 65 63 74 65 64 20 46 69 | 6c 65 6e 61 6d 65 2e 20 |ected Fi|lename. |
|00004700| 43 6c 69 63 6b 20 74 6f | 20 65 64 69 74 2e 22 20 |Click to| edit." |
|00004710| 3a 20 49 6e 66 6f 24 28 | 32 29 3d 22 22 0d 16 9e |: Info$(|2)=""...|
|00004720| 28 20 20 20 20 20 3a 20 | f2 72 65 64 72 61 77 57 |(     : |.redrawW|
|00004730| 69 6e 64 6f 77 28 57 69 | 6e 64 6f 77 25 28 39 29 |indow(Wi|ndow%(9)|
|00004740| 29 20 3a 20 e1 0d 16 a8 | 3c cc 20 3a 20 46 69 6c |) : ....|<. : Fil|
|00004750| 65 4e 61 6d 65 24 3d a4 | 65 6e 74 65 72 53 74 72 |eName$=.|enterStr|
|00004760| 69 6e 67 28 31 38 34 2c | 39 36 2c 32 37 36 2c 33 |ing(184,|96,276,3|
|00004770| 36 2c 46 69 6c 65 4e 61 | 6d 65 24 2c 31 30 2c 38 |6,FileNa|me$,10,8|
|00004780| 29 0d 16 b2 16 20 20 20 | 20 20 3a 20 46 69 6c 65 |)....   |  : File|
|00004790| 25 3d b9 20 3a 20 e1 0d | 16 bc 05 cd 0d 16 c6 05 |%=. : ..|........|
|000047a0| cd 0d 16 d0 15 e7 20 79 | 25 3e 31 36 20 80 20 79 |...... y|%>16 . y|
|000047b0| 25 3c 37 36 20 8c 0d 16 | da 1d 20 20 20 20 20 3a |%<76 ...|..     :|
|000047c0| 20 e7 20 78 25 3e 31 36 | 20 80 20 78 25 3c 32 34 | . x%>16| . x%<24|
|000047d0| 30 20 8c 0d 16 e4 20 20 | 20 20 20 20 3a 20 e7 20 |0 ....  |    : . |
|000047e0| 62 75 74 74 6f 6e 25 3d | 32 20 80 20 49 6e 66 6f |button%=|2 . Info|
|000047f0| 25 20 8c 0d 16 ee 42 20 | 20 20 20 20 3a 20 49 6e |% ....B |    : In|
|00004800| 66 6f 24 28 31 29 3d 22 | 4c 4f 41 44 20 3a 20 43 |fo$(1)="|LOAD : C|
|00004810| 6c 69 63 6b 20 74 6f 20 | 6c 6f 61 64 20 64 61 74 |lick to |load dat|
|00004820| 61 66 69 6c 65 2e 22 20 | 3a 20 49 6e 66 6f 24 28 |afile." |: Info$(|
|00004830| 32 29 3d 22 22 0d 16 f8 | 28 20 20 20 20 20 3a 20 |2)=""...|(     : |
|00004840| f2 72 65 64 72 61 77 57 | 69 6e 64 6f 77 28 57 69 |.redrawW|indow(Wi|
|00004850| 6e 64 6f 77 25 28 39 29 | 29 20 3a 20 e1 0d 17 02 |ndow%(9)|) : ....|
|00004860| 11 cc 20 3a 20 e7 20 46 | 69 6c 65 25 20 8c 0d 17 |.. : . F|ile% ...|
|00004870| 0c 39 20 20 20 20 20 3a | 20 f2 66 72 61 6d 65 28 |.9     :| .frame(|
|00004880| 35 2c 31 36 2c 31 36 2c | 32 32 34 2c 36 30 29 20 |5,16,16,|224,60) |
|00004890| 3a 20 f2 74 65 78 74 28 | 39 36 2c 36 30 2c 38 2c |: .text(|96,60,8,|
|000048a0| 22 4c 4f 41 44 22 29 0d | 17 16 1f 20 20 20 20 20 |"LOAD").|...     |
|000048b0| 3a 20 f2 6c 6f 61 64 28 | 46 69 6c 65 4e 61 6d 65 |: .load(|FileName|
|000048c0| 24 29 20 3a 20 e1 0d 17 | 20 05 cd 0d 17 2a 05 cd |$) : ...| ....*..|
|000048d0| 0d 17 34 05 cd 0d 17 3e | 15 20 20 20 20 20 3a 20 |..4....>|.     : |
|000048e0| e7 20 78 25 3e 32 34 38 | 20 8c 0d 17 48 20 20 20 |. x%>248| ...H   |
|000048f0| 20 20 20 3a 20 e7 20 62 | 75 74 74 6f 6e 25 3d 32 |   : . b|utton%=2|
|00004900| 20 80 20 49 6e 66 6f 25 | 20 8c 0d 17 52 42 20 20 | . Info%| ...RB  |
|00004910| 20 20 20 3a 20 49 6e 66 | 6f 24 28 31 29 3d 22 53 |   : Inf|o$(1)="S|
|00004920| 41 56 45 20 3a 20 43 6c | 69 63 6b 20 74 6f 20 73 |AVE : Cl|ick to s|
|00004930| 61 76 65 20 64 61 74 61 | 66 69 6c 65 2e 22 20 3a |ave data|file." :|
|00004940| 20 49 6e 66 6f 24 28 32 | 29 3d 22 22 0d 17 5c 28 | Info$(2|)=""..\(|
|00004950| 20 20 20 20 20 3a 20 f2 | 72 65 64 72 61 77 57 69 |     : .|redrawWi|
|00004960| 6e 64 6f 77 28 57 69 6e | 64 6f 77 25 28 39 29 29 |ndow(Win|dow%(9))|
|00004970| 20 3a 20 e1 0d 17 66 11 | cc 20 3a 20 e7 20 46 69 | : ...f.|. : . Fi|
|00004980| 6c 65 25 20 8c 0d 17 70 | 3b 20 20 20 20 20 3a 20 |le% ...p|;     : |
|00004990| f2 66 72 61 6d 65 28 35 | 2c 32 34 38 2c 31 36 2c |.frame(5|,248,16,|
|000049a0| 32 32 34 2c 36 30 29 20 | 3a 20 f2 74 65 78 74 28 |224,60) |: .text(|
|000049b0| 33 32 30 2c 36 30 2c 38 | 2c 22 53 41 56 45 22 29 |320,60,8|,"SAVE")|
|000049c0| 0d 17 7a 1f 20 20 20 20 | 20 3a 20 f2 73 61 76 65 |..z.    | : .save|
|000049d0| 28 46 69 6c 65 4e 61 6d | 65 24 29 20 3a 20 e1 0d |(FileNam|e$) : ..|
|000049e0| 17 84 05 cd 0d 17 8e 05 | cd 0d 17 98 05 cd 0d 17 |........|........|
|000049f0| a2 05 cd 0d 17 ac 05 e1 | 0d 17 b6 05 3a 0d 17 c0 |........|....:...|
|00004a00| 23 dd 20 f2 70 61 6c 65 | 74 74 65 53 65 6c 65 63 |#. .pale|tteSelec|
|00004a10| 74 28 78 25 2c 79 25 2c | 62 75 74 74 6f 6e 25 29 |t(x%,y%,|button%)|
|00004a20| 0d 17 ca 20 e7 20 79 25 | 3e 36 37 32 20 80 20 79 |... . y%|>672 . y|
|00004a30| 25 3c 37 34 38 20 80 20 | 78 25 3e 31 31 32 20 8c |%<748 . |x%>112 .|
|00004a40| 0d 17 d4 20 20 20 20 20 | 20 3a 20 e7 20 62 75 74 |...     | : . but|
|00004a50| 74 6f 6e 25 3d 32 20 80 | 20 49 6e 66 6f 25 20 8c |ton%=2 .| Info% .|
|00004a60| 0d 17 de 3e 20 20 20 20 | 20 3a 20 49 6e 66 6f 24 |...>    | : Info$|
|00004a70| 28 31 29 3d 22 43 6f 6c | 6f 75 72 20 4e 75 6d 65 |(1)="Col|our Nume|
|00004a80| 72 69 63 20 64 69 73 70 | 6c 61 79 3a 20 53 68 6f |ric disp|lay: Sho|
|00004a90| 77 73 20 74 68 65 20 6d | 61 6b 65 75 70 22 0d 17 |ws the m|akeup"..|
|00004aa0| e8 40 20 20 20 20 20 3a | 20 49 6e 66 6f 24 28 32 |.@     :| Info$(2|
|00004ab0| 29 3d 22 6f 66 20 73 65 | 6c 65 63 74 65 64 20 63 |)="of se|lected c|
|00004ac0| 6f 6c 6f 75 72 20 61 73 | 20 75 73 65 64 20 62 79 |olour as| used by|
|00004ad0| 20 56 44 55 20 31 39 2c | 20 65 74 63 2e 22 0d 17 | VDU 19,| etc."..|
|00004ae0| f2 28 20 20 20 20 20 3a | 20 f2 72 65 64 72 61 77 |.(     :| .redraw|
|00004af0| 57 69 6e 64 6f 77 28 57 | 69 6e 64 6f 77 25 28 39 |Window(W|indow%(9|
|00004b00| 29 29 20 3a 20 e1 0d 17 | fc 05 cd 0d 18 06 05 cd |)) : ...|........|
|00004b10| 0d 18 10 17 e7 20 79 25 | 3e 36 30 38 20 80 20 79 |..... y%|>608 . y|
|00004b20| 25 3c 36 35 32 20 8c 0d | 18 1a 20 20 20 20 20 20 |%<652 ..|..      |
|00004b30| 3a 20 e7 20 62 75 74 74 | 6f 6e 25 3d 32 20 80 20 |: . butt|on%=2 . |
|00004b40| 49 6e 66 6f 25 20 8c 0d | 18 24 3d 20 20 20 20 20 |Info% ..|.$=     |
|00004b50| 3a 20 49 6e 66 6f 24 28 | 31 29 3d 22 43 6f 6c 6f |: Info$(|1)="Colo|
|00004b60| 75 72 20 53 6c 69 64 65 | 72 3a 20 41 6c 74 65 72 |ur Slide|r: Alter|
|00004b70| 73 20 74 68 65 20 72 65 | 64 20 63 6f 6d 70 6f 6e |s the re|d compon|
|00004b80| 65 6e 74 22 0d 18 2e 2d | 20 20 20 20 20 3a 20 49 |ent"...-|     : I|
|00004b90| 6e 66 6f 24 28 32 29 3d | 22 6f 66 20 74 68 65 20 |nfo$(2)=|"of the |
|00004ba0| 73 65 6c 65 63 74 65 64 | 20 63 6f 6c 6f 75 72 2e |selected| colour.|
|00004bb0| 22 0d 18 38 28 20 20 20 | 20 20 3a 20 f2 72 65 64 |"..8(   |  : .red|
|00004bc0| 72 61 77 57 69 6e 64 6f | 77 28 57 69 6e 64 6f 77 |rawWindo|w(Window|
|00004bd0| 25 28 39 29 29 20 3a 20 | e1 0d 18 42 20 cc 20 3a |%(9)) : |...B . :|
|00004be0| 20 f2 61 6c 74 65 72 28 | 43 6f 6c 6f 75 72 25 2c | .alter(|Colour%,|
|00004bf0| 31 2c 78 25 29 20 3a 20 | e1 0d 18 4c 05 cd 0d 18 |1,x%) : |...L....|
|00004c00| 56 05 cd 0d 18 60 17 e7 | 20 79 25 3e 35 35 36 20 |V....`..| y%>556 |
|00004c10| 80 20 79 25 3c 36 30 30 | 20 8c 0d 18 6a 20 20 20 |. y%<600| ...j   |
|00004c20| 20 20 20 3a 20 e7 20 62 | 75 74 74 6f 6e 25 3d 32 |   : . b|utton%=2|
|00004c30| 20 80 20 49 6e 66 6f 25 | 20 8c 0d 18 74 3f 20 20 | . Info%| ...t?  |
|00004c40| 20 20 20 3a 20 49 6e 66 | 6f 24 28 31 29 3d 22 43 |   : Inf|o$(1)="C|
|00004c50| 6f 6c 6f 75 72 20 53 6c | 69 64 65 72 3a 20 41 6c |olour Sl|ider: Al|
|00004c60| 74 65 72 73 20 74 68 65 | 20 67 72 65 65 6e 20 63 |ters the| green c|
|00004c70| 6f 6d 70 6f 6e 65 6e 74 | 22 0d 18 7e 2d 20 20 20 |omponent|"..~-   |
|00004c80| 20 20 3a 20 49 6e 66 6f | 24 28 32 29 3d 22 6f 66 |  : Info|$(2)="of|
|00004c90| 20 74 68 65 20 73 65 6c | 65 63 74 65 64 20 63 6f | the sel|ected co|
|00004ca0| 6c 6f 75 72 2e 22 0d 18 | 88 28 20 20 20 20 20 3a |lour."..|.(     :|
|00004cb0| 20 f2 72 65 64 72 61 77 | 57 69 6e 64 6f 77 28 57 | .redraw|Window(W|
|00004cc0| 69 6e 64 6f 77 25 28 39 | 29 29 20 3a 20 e1 0d 18 |indow%(9|)) : ...|
|00004cd0| 92 20 cc 20 3a 20 f2 61 | 6c 74 65 72 28 43 6f 6c |. . : .a|lter(Col|
|00004ce0| 6f 75 72 25 2c 32 2c 78 | 25 29 20 3a 20 e1 0d 18 |our%,2,x|%) : ...|
|00004cf0| 9c 05 cd 0d 18 a6 05 cd | 0d 18 b0 17 e7 20 79 25 |........|..... y%|
|00004d00| 3e 35 30 34 20 80 20 79 | 25 3c 35 34 38 20 8c 0d |>504 . y|%<548 ..|
|00004d10| 18 ba 20 20 20 20 20 20 | 3a 20 e7 20 62 75 74 74 |..      |: . butt|
|00004d20| 6f 6e 25 3d 32 20 80 20 | 49 6e 66 6f 25 20 8c 0d |on%=2 . |Info% ..|
|00004d30| 18 c4 3e 20 20 20 20 20 | 3a 20 49 6e 66 6f 24 28 |..>     |: Info$(|
|00004d40| 31 29 3d 22 43 6f 6c 6f | 75 72 20 53 6c 69 64 65 |1)="Colo|ur Slide|
|00004d50| 72 3a 20 41 6c 74 65 72 | 73 20 74 68 65 20 62 6c |r: Alter|s the bl|
|00004d60| 75 65 20 63 6f 6d 70 6f | 6e 65 6e 74 22 0d 18 ce |ue compo|nent"...|
|00004d70| 2d 20 20 20 20 20 3a 20 | 49 6e 66 6f 24 28 32 29 |-     : |Info$(2)|
|00004d80| 3d 22 6f 66 20 74 68 65 | 20 73 65 6c 65 63 74 65 |="of the| selecte|
|00004d90| 64 20 63 6f 6c 6f 75 72 | 2e 22 0d 18 d8 28 20 20 |d colour|."...(  |
|00004da0| 20 20 20 3a 20 f2 72 65 | 64 72 61 77 57 69 6e 64 |   : .re|drawWind|
|00004db0| 6f 77 28 57 69 6e 64 6f | 77 25 28 39 29 29 20 3a |ow(Windo|w%(9)) :|
|00004dc0| 20 e1 0d 18 e2 20 cc 20 | 3a 20 f2 61 6c 74 65 72 | .... . |: .alter|
|00004dd0| 28 43 6f 6c 6f 75 72 25 | 2c 33 2c 78 25 29 20 3a |(Colour%|,3,x%) :|
|00004de0| 20 e1 0d 18 ec 05 cd 0d | 18 f6 05 cd 0d 19 00 17 | .......|........|
|00004df0| e7 20 79 25 3e 34 31 36 | 20 80 20 79 25 3c 34 39 |. y%>416| . y%<49|
|00004e00| 36 20 8c 0d 19 0a 20 20 | 20 20 20 20 3a 20 e7 20 |6 ....  |    : . |
|00004e10| 62 75 74 74 6f 6e 25 3d | 32 20 80 20 49 6e 66 6f |button%=|2 . Info|
|00004e20| 25 20 8c 0d 19 14 41 20 | 20 20 20 20 3a 20 49 6e |% ....A |    : In|
|00004e30| 66 6f 24 28 31 29 3d 22 | 43 6f 6c 6f 75 72 20 53 |fo$(1)="|Colour S|
|00004e40| 71 75 61 72 65 73 3a 20 | 53 65 6c 65 63 74 20 61 |quares: |Select a|
|00004e50| 20 63 6f 6c 6f 75 72 20 | 66 6f 72 20 64 69 73 70 | colour |for disp|
|00004e60| 6c 61 79 22 0d 19 1e 38 | 20 20 20 20 20 3a 20 49 |lay"...8|     : I|
|00004e70| 6e 66 6f 24 28 32 29 3d | 22 61 6e 64 20 61 6c 74 |nfo$(2)=|"and alt|
|00004e80| 65 72 61 74 69 6f 6e 20 | 2d 20 7b 30 2d 33 20 61 |eration |- {0-3 a|
|00004e90| 6e 64 20 42 6f 72 64 65 | 72 7d 2e 22 0d 19 28 28 |nd Borde|r}."..((|
|00004ea0| 20 20 20 20 20 3a 20 f2 | 72 65 64 72 61 77 57 69 |     : .|redrawWi|
|00004eb0| 6e 64 6f 77 28 57 69 6e | 64 6f 77 25 28 39 29 29 |ndow(Win|dow%(9))|
|00004ec0| 20 3a 20 e1 0d 19 32 25 | cc 20 3a 20 e7 20 78 25 | : ...2%|. : . x%|
|00004ed0| 3e 31 36 20 20 80 20 78 | 25 3c 31 30 30 20 8c 20 |>16  . x|%<100 . |
|00004ee0| 43 6f 6c 6f 75 72 25 3d | 30 0d 19 3c 28 20 20 20 |Colour%=|0..<(   |
|00004ef0| 20 20 3a 20 e7 20 78 25 | 3e 31 30 38 20 80 20 78 |  : . x%|>108 . x|
|00004f00| 25 3c 31 39 32 20 8c 20 | 43 6f 6c 6f 75 72 25 3d |%<192 . |Colour%=|
|00004f10| 31 0d 19 46 28 20 20 20 | 20 20 3a 20 e7 20 78 25 |1..F(   |  : . x%|
|00004f20| 3e 32 30 30 20 80 20 78 | 25 3c 32 38 34 20 8c 20 |>200 . x|%<284 . |
|00004f30| 43 6f 6c 6f 75 72 25 3d | 32 0d 19 50 28 20 20 20 |Colour%=|2..P(   |
|00004f40| 20 20 3a 20 e7 20 78 25 | 3e 32 39 32 20 80 20 78 |  : . x%|>292 . x|
|00004f50| 25 3c 33 37 36 20 8c 20 | 43 6f 6c 6f 75 72 25 3d |%<376 . |Colour%=|
|00004f60| 33 0d 19 5a 20 20 20 20 | 20 20 3a 20 e7 20 78 25 |3..Z    |  : . x%|
|00004f70| 3e 33 38 34 20 8c 20 43 | 6f 6c 6f 75 72 25 3d 31 |>384 . C|olour%=1|
|00004f80| 36 0d 19 64 23 20 20 20 | 20 20 3a 20 f2 63 6f 6c |6..d#   |  : .col|
|00004f90| 6f 75 72 53 68 6f 77 28 | 43 6f 6c 6f 75 72 25 29 |ourShow(|Colour%)|
|00004fa0| 20 3a 20 e1 0d 19 6e 05 | cd 0d 19 78 05 cd 0d 19 | : ...n.|...x....|
|00004fb0| 82 17 e7 20 79 25 3e 33 | 32 38 20 80 20 79 25 3c |... y%>3|28 . y%<|
|00004fc0| 34 30 38 20 8c 0d 19 8c | 20 20 20 20 20 20 3a 20 |408 ....|      : |
|00004fd0| e7 20 62 75 74 74 6f 6e | 25 3d 32 20 80 20 49 6e |. button|%=2 . In|
|00004fe0| 66 6f 25 20 8c 0d 19 96 | 41 20 20 20 20 20 3a 20 |fo% ....|A     : |
|00004ff0| 49 6e 66 6f 24 28 31 29 | 3d 22 43 6f 6c 6f 75 72 |Info$(1)|="Colour|
|00005000| 20 53 71 75 61 72 65 73 | 3a 20 53 65 6c 65 63 74 | Squares|: Select|
|00005010| 20 61 20 63 6f 6c 6f 75 | 72 20 66 6f 72 20 64 69 | a colou|r for di|
|00005020| 73 70 6c 61 79 22 0d 19 | a0 3f 20 20 20 20 20 3a |splay"..|.?     :|
|00005030| 20 49 6e 66 6f 24 28 32 | 29 3d 22 61 6e 64 20 61 | Info$(2|)="and a|
|00005040| 6c 74 65 72 61 74 69 6f | 6e 20 2d 20 7b 34 2d 37 |lteratio|n - {4-7|
|00005050| 20 61 6e 64 20 4d 6f 75 | 73 65 20 43 6f 6c 6f 75 | and Mou|se Colou|
|00005060| 72 31 7d 2e 22 0d 19 aa | 28 20 20 20 20 20 3a 20 |r1}."...|(     : |
|00005070| f2 72 65 64 72 61 77 57 | 69 6e 64 6f 77 28 57 69 |.redrawW|indow(Wi|
|00005080| 6e 64 6f 77 25 28 39 29 | 29 20 3a 20 e1 0d 19 b4 |ndow%(9)|) : ....|
|00005090| 25 cc 20 3a 20 e7 20 78 | 25 3e 31 36 20 20 80 20 |%. : . x|%>16  . |
|000050a0| 78 25 3c 31 30 30 20 8c | 20 43 6f 6c 6f 75 72 25 |x%<100 .| Colour%|
|000050b0| 3d 34 0d 19 be 28 20 20 | 20 20 20 3a 20 e7 20 78 |=4...(  |   : . x|
|000050c0| 25 3e 31 30 38 20 80 20 | 78 25 3c 31 39 32 20 8c |%>108 . |x%<192 .|
|000050d0| 20 43 6f 6c 6f 75 72 25 | 3d 35 0d 19 c8 28 20 20 | Colour%|=5...(  |
|000050e0| 20 20 20 3a 20 e7 20 78 | 25 3e 32 30 30 20 80 20 |   : . x|%>200 . |
|000050f0| 78 25 3c 32 38 34 20 8c | 20 43 6f 6c 6f 75 72 25 |x%<284 .| Colour%|
|00005100| 3d 36 0d 19 d2 28 20 20 | 20 20 20 3a 20 e7 20 78 |=6...(  |   : . x|
|00005110| 25 3e 32 39 32 20 80 20 | 78 25 3c 33 37 36 20 8c |%>292 . |x%<376 .|
|00005120| 20 43 6f 6c 6f 75 72 25 | 3d 37 0d 19 dc 20 20 20 | Colour%|=7...   |
|00005130| 20 20 20 3a 20 e7 20 78 | 25 3e 33 38 34 20 8c 20 |   : . x|%>384 . |
|00005140| 43 6f 6c 6f 75 72 25 3d | 31 37 0d 19 e6 23 20 20 |Colour%=|17...#  |
|00005150| 20 20 20 3a 20 f2 63 6f | 6c 6f 75 72 53 68 6f 77 |   : .co|lourShow|
|00005160| 28 43 6f 6c 6f 75 72 25 | 29 20 3a 20 e1 0d 19 f0 |(Colour%|) : ....|
|00005170| 05 cd 0d 19 fa 05 cd 0d | 1a 04 17 e7 20 79 25 3e |........|.... y%>|
|00005180| 32 34 30 20 80 20 79 25 | 3c 33 32 30 20 8c 0d 1a |240 . y%|<320 ...|
|00005190| 0e 20 20 20 20 20 20 3a | 20 e7 20 62 75 74 74 6f |.      :| . butto|
|000051a0| 6e 25 3d 32 20 80 20 49 | 6e 66 6f 25 20 8c 0d 1a |n%=2 . I|nfo% ...|
|000051b0| 18 41 20 20 20 20 20 3a | 20 49 6e 66 6f 24 28 31 |.A     :| Info$(1|
|000051c0| 29 3d 22 43 6f 6c 6f 75 | 72 20 53 71 75 61 72 65 |)="Colou|r Square|
|000051d0| 73 3a 20 53 65 6c 65 63 | 74 20 61 20 63 6f 6c 6f |s: Selec|t a colo|
|000051e0| 75 72 20 66 6f 72 20 64 | 69 73 70 6c 61 79 22 0d |ur for d|isplay".|
|000051f0| 1a 22 40 20 20 20 20 20 | 3a 20 49 6e 66 6f 24 28 |."@     |: Info$(|
|00005200| 32 29 3d 22 61 6e 64 20 | 61 6c 74 65 72 61 74 69 |2)="and |alterati|
|00005210| 6f 6e 20 2d 20 7b 38 2d | 31 31 20 61 6e 64 20 4d |on - {8-|11 and M|
|00005220| 6f 75 73 65 20 43 6f 6c | 6f 75 72 32 7d 2e 22 0d |ouse Col|our2}.".|
|00005230| 1a 2c 28 20 20 20 20 20 | 3a 20 f2 72 65 64 72 61 |.,(     |: .redra|
|00005240| 77 57 69 6e 64 6f 77 28 | 57 69 6e 64 6f 77 25 28 |wWindow(|Window%(|
|00005250| 39 29 29 20 3a 20 e1 0d | 1a 36 25 cc 20 3a 20 e7 |9)) : ..|.6%. : .|
|00005260| 20 78 25 3e 31 36 20 20 | 80 20 78 25 3c 31 30 30 | x%>16  |. x%<100|
|00005270| 20 8c 20 43 6f 6c 6f 75 | 72 25 3d 38 0d 1a 40 28 | . Colou|r%=8..@(|
|00005280| 20 20 20 20 20 3a 20 e7 | 20 78 25 3e 31 30 38 20 |     : .| x%>108 |
|00005290| 80 20 78 25 3c 31 39 32 | 20 8c 20 43 6f 6c 6f 75 |. x%<192| . Colou|
|000052a0| 72 25 3d 39 0d 1a 4a 29 | 20 20 20 20 20 3a 20 e7 |r%=9..J)|     : .|
|000052b0| 20 78 25 3e 32 30 30 20 | 80 20 78 25 3c 32 38 34 | x%>200 |. x%<284|
|000052c0| 20 8c 20 43 6f 6c 6f 75 | 72 25 3d 31 30 0d 1a 54 | . Colou|r%=10..T|
|000052d0| 29 20 20 20 20 20 3a 20 | e7 20 78 25 3e 32 39 32 |)     : |. x%>292|
|000052e0| 20 80 20 78 25 3c 33 37 | 36 20 8c 20 43 6f 6c 6f | . x%<37|6 . Colo|
|000052f0| 75 72 25 3d 31 31 0d 1a | 5e 20 20 20 20 20 20 3a |ur%=11..|^      :|
|00005300| 20 e7 20 78 25 3e 33 38 | 34 20 8c 20 43 6f 6c 6f | . x%>38|4 . Colo|
|00005310| 75 72 25 3d 31 38 0d 1a | 68 23 20 20 20 20 20 3a |ur%=18..|h#     :|
|00005320| 20 f2 63 6f 6c 6f 75 72 | 53 68 6f 77 28 43 6f 6c | .colour|Show(Col|
|00005330| 6f 75 72 25 29 20 3a 20 | e1 0d 1a 72 05 cd 0d 1a |our%) : |...r....|
|00005340| 7c 05 cd 0d 1a 86 17 e7 | 20 79 25 3e 31 35 32 20 ||.......| y%>152 |
|00005350| 80 20 79 25 3c 32 33 32 | 20 8c 0d 1a 90 20 20 20 |. y%<232| ....   |
|00005360| 20 20 20 3a 20 e7 20 62 | 75 74 74 6f 6e 25 3d 32 |   : . b|utton%=2|
|00005370| 20 80 20 49 6e 66 6f 25 | 20 8c 0d 1a 9a 41 20 20 | . Info%| ....A  |
|00005380| 20 20 20 3a 20 49 6e 66 | 6f 24 28 31 29 3d 22 43 |   : Inf|o$(1)="C|
|00005390| 6f 6c 6f 75 72 20 53 71 | 75 61 72 65 73 3a 20 53 |olour Sq|uares: S|
|000053a0| 65 6c 65 63 74 20 61 20 | 63 6f 6c 6f 75 72 20 66 |elect a |colour f|
|000053b0| 6f 72 20 64 69 73 70 6c | 61 79 22 0d 1a a4 41 20 |or displ|ay"...A |
|000053c0| 20 20 20 20 3a 20 49 6e | 66 6f 24 28 32 29 3d 22 |    : In|fo$(2)="|
|000053d0| 61 6e 64 20 61 6c 74 65 | 72 61 74 69 6f 6e 20 2d |and alte|ration -|
|000053e0| 20 7b 31 32 2d 31 35 20 | 61 6e 64 20 4d 6f 75 73 | {12-15 |and Mous|
|000053f0| 65 20 43 6f 6c 6f 75 72 | 33 7d 2e 22 0d 1a ae 28 |e Colour|3}."...(|
|00005400| 20 20 20 20 20 3a 20 f2 | 72 65 64 72 61 77 57 69 |     : .|redrawWi|
|00005410| 6e 64 6f 77 28 57 69 6e | 64 6f 77 25 28 39 29 29 |ndow(Win|dow%(9))|
|00005420| 20 3a 20 e1 0d 1a b8 26 | cc 20 3a 20 e7 20 78 25 | : ....&|. : . x%|
|00005430| 3e 31 36 20 20 80 20 78 | 25 3c 31 30 30 20 8c 20 |>16  . x|%<100 . |
|00005440| 43 6f 6c 6f 75 72 25 3d | 31 32 0d 1a c2 29 20 20 |Colour%=|12...)  |
|00005450| 20 20 20 3a 20 e7 20 78 | 25 3e 31 30 38 20 80 20 |   : . x|%>108 . |
|00005460| 78 25 3c 31 39 32 20 8c | 20 43 6f 6c 6f 75 72 25 |x%<192 .| Colour%|
|00005470| 3d 31 33 0d 1a cc 29 20 | 20 20 20 20 3a 20 e7 20 |=13...) |    : . |
|00005480| 78 25 3e 32 30 30 20 80 | 20 78 25 3c 32 38 34 20 |x%>200 .| x%<284 |
|00005490| 8c 20 43 6f 6c 6f 75 72 | 25 3d 31 34 0d 1a d6 29 |. Colour|%=14...)|
|000054a0| 20 20 20 20 20 3a 20 e7 | 20 78 25 3e 32 39 32 20 |     : .| x%>292 |
|000054b0| 80 20 78 25 3c 33 37 36 | 20 8c 20 43 6f 6c 6f 75 |. x%<376| . Colou|
|000054c0| 72 25 3d 31 35 0d 1a e0 | 20 20 20 20 20 20 3a 20 |r%=15...|      : |
|000054d0| e7 20 78 25 3e 33 38 34 | 20 8c 20 43 6f 6c 6f 75 |. x%>384| . Colou|
|000054e0| 72 25 3d 31 39 0d 1a ea | 23 20 20 20 20 20 3a 20 |r%=19...|#     : |
|000054f0| f2 63 6f 6c 6f 75 72 53 | 68 6f 77 28 43 6f 6c 6f |.colourS|how(Colo|
|00005500| 75 72 25 29 20 3a 20 e1 | 0d 1a f4 05 cd 0d 1a fe |ur%) : .|........|
|00005510| 05 cd 0d 1b 08 16 e7 20 | 79 25 3e 38 34 20 80 20 |....... |y%>84 . |
|00005520| 79 25 3c 31 34 34 20 8c | 0d 1b 12 20 20 20 20 20 |y%<144 .|...     |
|00005530| 20 3a 20 e7 20 62 75 74 | 74 6f 6e 25 3d 32 20 80 | : . but|ton%=2 .|
|00005540| 20 49 6e 66 6f 25 20 8c | 0d 1b 1c 45 20 20 20 20 | Info% .|...E    |
|00005550| 20 3a 20 49 6e 66 6f 24 | 28 31 29 3d 22 53 65 6c | : Info$|(1)="Sel|
|00005560| 65 63 74 65 64 20 66 69 | 6c 65 6e 61 6d 65 2e 20 |ected fi|lename. |
|00005570| 43 6c 69 63 6b 20 74 6f | 20 65 64 69 74 2e 22 20 |Click to| edit." |
|00005580| 3a 20 49 6e 66 6f 24 28 | 32 29 3d 22 22 0d 1b 26 |: Info$(|2)=""..&|
|00005590| 28 20 20 20 20 20 3a 20 | f2 72 65 64 72 61 77 57 |(     : |.redrawW|
|000055a0| 69 6e 64 6f 77 28 57 69 | 6e 64 6f 77 25 28 39 29 |indow(Wi|ndow%(9)|
|000055b0| 29 20 3a 20 e1 0d 1b 30 | 3a cc 20 3a 20 50 61 6c |) : ...0|:. : Pal|
|000055c0| 65 74 74 65 24 3d a4 65 | 6e 74 65 72 53 74 72 69 |ette$=.e|nterStri|
|000055d0| 6e 67 28 31 38 34 2c 39 | 36 2c 32 37 36 2c 33 36 |ng(184,9|6,276,36|
|000055e0| 2c 50 61 6c 65 74 74 65 | 24 2c 31 30 2c 38 29 0d |,Palette|$,10,8).|
|000055f0| 1b 3a 15 20 20 20 20 20 | 3a 20 50 61 6c 25 3d b9 |.:.     |: Pal%=.|
|00005600| 20 3a 20 e1 0d 1b 44 05 | cd 0d 1b 4e 05 cd 0d 1b | : ...D.|...N....|
|00005610| 58 15 e7 20 79 25 3e 31 | 36 20 80 20 79 25 3c 37 |X.. y%>1|6 . y%<7|
|00005620| 36 20 8c 0d 1b 62 1d 20 | 20 20 20 20 3a 20 e7 20 |6 ...b. |    : . |
|00005630| 78 25 3e 31 36 20 80 20 | 78 25 3c 32 34 30 20 8c |x%>16 . |x%<240 .|
|00005640| 0d 1b 6c 20 20 20 20 20 | 20 3a 20 e7 20 62 75 74 |..l     | : . but|
|00005650| 74 6f 6e 25 3d 32 20 80 | 20 49 6e 66 6f 25 20 8c |ton%=2 .| Info% .|
|00005660| 0d 1b 76 41 20 20 20 20 | 20 3a 20 49 6e 66 6f 24 |..vA    | : Info$|
|00005670| 28 31 29 3d 22 4c 4f 41 | 44 20 3a 20 43 6c 69 63 |(1)="LOA|D : Clic|
|00005680| 6b 20 74 6f 20 6c 6f 61 | 64 20 70 61 6c 65 74 74 |k to loa|d palett|
|00005690| 65 2e 22 20 3a 20 49 6e | 66 6f 24 28 32 29 3d 22 |e." : In|fo$(2)="|
|000056a0| 22 0d 1b 80 28 20 20 20 | 20 20 3a 20 f2 72 65 64 |"...(   |  : .red|
|000056b0| 72 61 77 57 69 6e 64 6f | 77 28 57 69 6e 64 6f 77 |rawWindo|w(Window|
|000056c0| 25 28 39 29 29 20 3a 20 | e1 0d 1b 8a 10 cc 20 3a |%(9)) : |...... :|
|000056d0| 20 e7 20 50 61 6c 25 20 | 8c 0d 1b 94 39 20 20 20 | . Pal% |....9   |
|000056e0| 20 20 3a 20 f2 66 72 61 | 6d 65 28 35 2c 31 36 2c |  : .fra|me(5,16,|
|000056f0| 31 36 2c 32 32 34 2c 36 | 30 29 20 3a 20 f2 74 65 |16,224,6|0) : .te|
|00005700| 78 74 28 39 36 2c 36 30 | 2c 38 2c 22 4c 4f 41 44 |xt(96,60|,8,"LOAD|
|00005710| 22 29 0d 1b 9e 25 20 20 | 20 20 20 3a 20 f2 6c 6f |")...%  |   : .lo|
|00005720| 61 64 50 61 6c 65 74 74 | 65 28 50 61 6c 65 74 74 |adPalett|e(Palett|
|00005730| 65 24 29 20 3a 20 e1 0d | 1b a8 05 cd 0d 1b b2 05 |e$) : ..|........|
|00005740| cd 0d 1b bc 05 cd 0d 1b | c6 15 20 20 20 20 20 3a |........|..     :|
|00005750| 20 e7 20 78 25 3e 32 34 | 38 20 8c 0d 1b d0 20 20 | . x%>24|8 ....  |
|00005760| 20 20 20 20 3a 20 e7 20 | 62 75 74 74 6f 6e 25 3d |    : . |button%=|
|00005770| 32 20 80 20 49 6e 66 6f | 25 20 8c 0d 1b da 41 20 |2 . Info|% ....A |
|00005780| 20 20 20 20 3a 20 49 6e | 66 6f 24 28 31 29 3d 22 |    : In|fo$(1)="|
|00005790| 53 41 56 45 20 3a 20 43 | 6c 69 63 6b 20 74 6f 20 |SAVE : C|lick to |
|000057a0| 73 61 76 65 20 70 61 6c | 65 74 74 65 2e 22 20 3a |save pal|ette." :|
|000057b0| 20 49 6e 66 6f 24 28 32 | 29 3d 22 22 0d 1b e4 28 | Info$(2|)=""...(|
|000057c0| 20 20 20 20 20 3a 20 f2 | 72 65 64 72 61 77 57 69 |     : .|redrawWi|
|000057d0| 6e 64 6f 77 28 57 69 6e | 64 6f 77 25 28 39 29 29 |ndow(Win|dow%(9))|
|000057e0| 20 3a 20 e1 0d 1b ee 10 | cc 20 3a 20 e7 20 50 61 | : .....|. : . Pa|
|000057f0| 6c 25 20 8c 0d 1b f8 3b | 20 20 20 20 20 3a 20 f2 |l% ....;|     : .|
|00005800| 66 72 61 6d 65 28 35 2c | 32 34 38 2c 31 36 2c 32 |frame(5,|248,16,2|
|00005810| 32 34 2c 36 30 29 20 3a | 20 f2 74 65 78 74 28 33 |24,60) :| .text(3|
|00005820| 32 30 2c 36 30 2c 38 2c | 22 53 41 56 45 22 29 0d |20,60,8,|"SAVE").|
|00005830| 1c 02 25 20 20 20 20 20 | 3a 20 f2 73 61 76 65 50 |..%     |: .saveP|
|00005840| 61 6c 65 74 74 65 28 50 | 61 6c 65 74 74 65 24 29 |alette(P|alette$)|
|00005850| 20 3a 20 e1 0d 1c 0c 05 | cd 0d 1c 16 05 cd 0d 1c | : .....|........|
|00005860| 20 05 cd 0d 1c 2a 05 cd | 0d 1c 34 05 e1 0d 1c 3e | ....*..|..4....>|
|00005870| 05 3a 0d 1c 48 15 dd 20 | f2 63 6f 6c 6f 75 72 53 |.:..H.. |.colourS|
|00005880| 68 6f 77 28 43 25 29 0d | 1c 52 10 ea 20 63 6f 6c |how(C%).|.R.. col|
|00005890| 24 2c 61 24 2c 61 25 0d | 1c 5c 37 63 6f 6c 24 3d |$,a$,a%.|.\7col$=|
|000058a0| c3 28 52 65 64 25 28 43 | 25 29 29 2b 22 20 22 2b |.(Red%(C|%))+" "+|
|000058b0| c3 28 47 72 65 65 6e 25 | 28 43 25 29 29 2b 22 20 |.(Green%|(C%))+" |
|000058c0| 22 2b c3 28 42 6c 75 65 | 25 28 43 25 29 29 0d 1c |"+.(Blue|%(C%))..|
|000058d0| 66 27 e6 20 31 30 20 3a | 20 c8 93 20 c8 90 20 78 |f'. 10 :| .. .. x|
|000058e0| 30 25 2b 31 30 38 2c 79 | 30 25 2b 36 39 36 2c 33 |0%+108,y|0%+696,3|
|000058f0| 35 36 2c 34 30 0d 1c 70 | 0d e7 20 43 25 3c 31 36 |56,40..p|.. C%<16|
|00005900| 20 8c 0d 1c 7a 33 20 20 | 20 20 20 3a 20 f2 74 65 | ...z3  |   : .te|
|00005910| 78 74 28 31 30 38 2c 37 | 32 30 2c 30 2c 22 43 6f |xt(108,7|20,0,"Co|
|00005920| 6c 6f 75 72 22 2b c3 28 | 43 25 29 2b 22 20 22 2b |lour"+.(|C%)+" "+|
|00005930| 63 6f 6c 24 29 0d 1c 84 | 22 cc 20 3a 20 f7 20 8d |col$)...|". : . .|
|00005940| 74 76 5c 20 3a 20 e3 20 | 61 25 3d 30 20 b8 20 33 |tv\ : . |a%=0 . 3|
|00005950| 20 3a 20 f3 20 61 24 0d | 1c 8e 28 20 20 20 20 20 | : . a$.|..(     |
|00005960| 3a 20 e7 20 61 25 2b 31 | 36 3d 43 25 20 8c 20 63 |: . a%+1|6=C% . c|
|00005970| 6f 6c 24 3d 61 24 2b 22 | 20 22 2b 63 6f 6c 24 0d |ol$=a$+"| "+col$.|
|00005980| 1c 98 24 20 20 20 20 20 | 3a 20 ed 20 3a 20 f2 74 |..$     |: . : .t|
|00005990| 65 78 74 28 31 30 38 2c | 37 32 30 2c 30 2c 63 6f |ext(108,|720,0,co|
|000059a0| 6c 24 29 0d 1c a2 05 cd | 0d 1c ac 13 f2 61 6c 74 |l$).....|.....alt|
|000059b0| 65 72 28 43 25 2c 30 2c | 78 25 29 0d 1c b6 21 dc |er(C%,0,|x%)...!.|
|000059c0| 20 42 6f 72 64 65 72 2c | 4d 6f 75 73 65 31 2c 4d | Border,|Mouse1,M|
|000059d0| 6f 75 73 65 32 2c 4d 6f | 75 73 65 33 0d 1c c0 05 |ouse2,Mo|use3....|
|000059e0| 3a 0d 1c ca 16 dd 20 f2 | 61 6c 74 65 72 28 43 25 |:..... .|alter(C%|
|000059f0| 2c 61 25 2c 78 25 29 0d | 1c d4 0b c8 8e 20 61 25 |,a%,x%).|..... a%|
|00005a00| 20 ca 0d 1c de 2c c9 20 | 30 20 3a 20 e6 20 31 34 | ....,. |0 : . 14|
|00005a10| 20 3a 20 c8 93 20 c8 90 | 20 78 30 25 2b 36 30 2c | : .. ..| x0%+60,|
|00005a20| 79 30 25 2b 36 32 30 2c | 34 30 30 2c 32 30 0d 1c |y0%+620,|400,20..|
|00005a30| e8 3c 20 20 20 20 20 20 | 20 3a 20 e6 20 31 20 20 |.<      | : . 1  |
|00005a40| 3a 20 c8 93 20 c8 90 20 | 78 30 25 2b 36 30 2c 79 |: .. .. |x0%+60,y|
|00005a50| 30 25 2b 36 32 30 2c 28 | 52 65 64 25 28 43 25 29 |0%+620,(|Red%(C%)|
|00005a60| 81 31 36 29 2a 32 36 2c | 32 30 0d 1c f2 2f 20 20 |.16)*26,|20.../  |
|00005a70| 20 20 20 20 20 3a 20 e6 | 20 31 34 20 3a 20 c8 93 |     : .| 14 : ..|
|00005a80| 20 c8 90 20 78 30 25 2b | 36 30 2c 79 30 25 2b 35 | .. x0%+|60,y0%+5|
|00005a90| 36 38 2c 34 30 30 2c 32 | 30 0d 1c fc 3e 20 20 20 |68,400,2|0...>   |
|00005aa0| 20 20 20 20 3a 20 e6 20 | 32 20 20 3a 20 c8 93 20 |    : . |2  : .. |
|00005ab0| c8 90 20 78 30 25 2b 36 | 30 2c 79 30 25 2b 35 36 |.. x0%+6|0,y0%+56|
|00005ac0| 38 2c 28 47 72 65 65 6e | 25 28 43 25 29 81 31 36 |8,(Green|%(C%).16|
|00005ad0| 29 2a 32 36 2c 32 30 0d | 1d 06 2f 20 20 20 20 20 |)*26,20.|../     |
|00005ae0| 20 20 3a 20 e6 20 31 34 | 20 3a 20 c8 93 20 c8 90 |  : . 14| : .. ..|
|00005af0| 20 78 30 25 2b 36 30 2c | 79 30 25 2b 35 31 36 2c | x0%+60,|y0%+516,|
|00005b00| 34 30 30 2c 32 30 0d 1d | 10 3d 20 20 20 20 20 20 |400,20..|.=      |
|00005b10| 20 3a 20 e6 20 34 20 20 | 3a 20 c8 93 20 c8 90 20 | : . 4  |: .. .. |
|00005b20| 78 30 25 2b 36 30 2c 79 | 30 25 2b 35 31 36 2c 28 |x0%+60,y|0%+516,(|
|00005b30| 42 6c 75 65 25 28 43 25 | 29 81 31 36 29 2a 32 36 |Blue%(C%|).16)*26|
|00005b40| 2c 32 30 0d 1d 1a 0e 20 | 20 20 20 20 20 20 3a 20 |,20.... |      : |
|00005b50| e1 0d 1d 24 2c c9 20 31 | 20 3a 20 e6 20 31 34 20 |...$,. 1| : . 14 |
|00005b60| 3a 20 c8 93 20 c8 90 20 | 78 30 25 2b 36 30 2c 79 |: .. .. |x0%+60,y|
|00005b70| 30 25 2b 36 32 30 2c 34 | 30 30 2c 32 30 0d 1d 2e |0%+620,4|00,20...|
|00005b80| 33 20 20 20 20 20 20 20 | 3a 20 52 65 64 25 28 43 |3       |: Red%(C|
|00005b90| 25 29 3d 28 28 78 25 2d | 36 30 29 81 20 32 36 29 |%)=((x%-|60). 26)|
|00005ba0| 2a 31 36 20 3a 20 50 61 | 6c 4f 72 69 67 25 3d a3 |*16 : Pa|lOrig%=.|
|00005bb0| 0d 1d 38 3c 20 20 20 20 | 20 20 20 3a 20 e6 20 31 |..8<    |   : . 1|
|00005bc0| 20 20 3a 20 c8 93 20 c8 | 90 20 78 30 25 2b 36 30 |  : .. .|. x0%+60|
|00005bd0| 2c 79 30 25 2b 36 32 30 | 2c 28 52 65 64 25 28 43 |,y0%+620|,(Red%(C|
|00005be0| 25 29 81 31 36 29 2a 32 | 36 2c 32 30 0d 1d 42 2c |%).16)*2|6,20..B,|
|00005bf0| c9 20 32 20 3a 20 e6 20 | 31 34 20 3a 20 c8 93 20 |. 2 : . |14 : .. |
|00005c00| c8 90 20 78 30 25 2b 36 | 30 2c 79 30 25 2b 35 36 |.. x0%+6|0,y0%+56|
|00005c10| 38 2c 34 30 30 2c 32 30 | 0d 1d 4c 35 20 20 20 20 |8,400,20|..L5    |
|00005c20| 20 20 20 3a 20 47 72 65 | 65 6e 25 28 43 25 29 3d |   : Gre|en%(C%)=|
|00005c30| 28 28 78 25 2d 36 30 29 | 81 20 32 36 29 2a 31 36 |((x%-60)|. 26)*16|
|00005c40| 20 3a 20 50 61 6c 4f 72 | 69 67 25 3d a3 0d 1d 56 | : PalOr|ig%=...V|
|00005c50| 3e 20 20 20 20 20 20 20 | 3a 20 e6 20 32 20 20 3a |>       |: . 2  :|
|00005c60| 20 c8 93 20 c8 90 20 78 | 30 25 2b 36 30 2c 79 30 | .. .. x|0%+60,y0|
|00005c70| 25 2b 35 36 38 2c 28 47 | 72 65 65 6e 25 28 43 25 |%+568,(G|reen%(C%|
|00005c80| 29 81 31 36 29 2a 32 36 | 2c 32 30 0d 1d 60 2c c9 |).16)*26|,20..`,.|
|00005c90| 20 33 20 3a 20 e6 20 31 | 34 20 3a 20 c8 93 20 c8 | 3 : . 1|4 : .. .|
|00005ca0| 90 20 78 30 25 2b 36 30 | 2c 79 30 25 2b 35 31 36 |. x0%+60|,y0%+516|
|00005cb0| 2c 34 30 30 2c 32 30 0d | 1d 6a 34 20 20 20 20 20 |,400,20.|.j4     |
|00005cc0| 20 20 3a 20 42 6c 75 65 | 25 28 43 25 29 3d 28 28 |  : Blue|%(C%)=((|
|00005cd0| 78 25 2d 36 30 29 81 20 | 32 36 29 2a 31 36 20 3a |x%-60). |26)*16 :|
|00005ce0| 20 50 61 6c 4f 72 69 67 | 25 3d a3 0d 1d 74 3d 20 | PalOrig|%=...t= |
|00005cf0| 20 20 20 20 20 20 3a 20 | e6 20 34 20 20 3a 20 c8 |      : |. 4  : .|
|00005d00| 93 20 c8 90 20 78 30 25 | 2b 36 30 2c 79 30 25 2b |. .. x0%|+60,y0%+|
|00005d10| 35 31 36 2c 28 42 6c 75 | 65 25 28 43 25 29 81 31 |516,(Blu|e%(C%).1|
|00005d20| 36 29 2a 32 36 2c 32 30 | 0d 1d 7e 05 cb 0d 1d 88 |6)*26,20|..~.....|
|00005d30| 36 e7 20 43 25 3c 31 36 | 20 8c 20 ef 20 31 39 2c |6. C%<16| . . 19,|
|00005d40| 43 25 2c 31 36 2c 52 65 | 64 25 28 43 25 29 2c 47 |C%,16,Re|d%(C%),G|
|00005d50| 72 65 65 6e 25 28 43 25 | 29 2c 42 6c 75 65 25 28 |reen%(C%|),Blue%(|
|00005d60| 43 25 29 0d 1d 92 35 e7 | 20 43 25 3d 31 36 20 8c |C%)...5.| C%=16 .|
|00005d70| 20 ef 20 31 39 2c 30 2c | 32 34 2c 52 65 64 25 28 | . 19,0,|24,Red%(|
|00005d80| 43 25 29 2c 47 72 65 65 | 6e 25 28 43 25 29 2c 42 |C%),Gree|n%(C%),B|
|00005d90| 6c 75 65 25 28 43 25 29 | 0d 1d 9c 39 e7 20 43 25 |lue%(C%)|...9. C%|
|00005da0| 3e 31 36 20 8c 20 ef 20 | 31 39 2c 43 25 2d 31 36 |>16 . . |19,C%-16|
|00005db0| 2c 32 35 2c 52 65 64 25 | 28 43 25 29 2c 47 72 65 |,25,Red%|(C%),Gre|
|00005dc0| 65 6e 25 28 43 25 29 2c | 42 6c 75 65 25 28 43 25 |en%(C%),|Blue%(C%|
|00005dd0| 29 0d 1d a6 05 e1 0d 1d | b0 05 3a 0d 1d ba 0e dd |).......|..:.....|
|00005de0| 20 f2 65 64 69 74 28 45 | 29 0d 1d c4 0a c8 8e 20 | .edit(E|)...... |
|00005df0| 45 20 ca 0d 1d ce 3a c9 | 20 30 20 3a 20 54 6f 74 |E ....:.| 0 : Tot|
|00005e00| 61 6c 24 3d a4 65 6e 74 | 65 72 53 74 72 69 6e 67 |al$=.ent|erString|
|00005e10| 28 36 36 34 2c 36 30 38 | 2c 38 30 2c 33 36 2c c3 |(664,608|,80,36,.|
|00005e20| 28 54 6f 74 61 6c 25 29 | 2c 34 2c 30 29 0d 1d d8 |(Total%)|,4,0)...|
|00005e30| 1d 20 20 20 20 20 20 20 | 3a 20 54 6f 74 61 6c 25 |.       |: Total%|
|00005e40| 3d bb 28 54 6f 74 61 6c | 24 29 0d 1d e2 49 c9 20 |=.(Total|$)...I. |
|00005e50| 31 20 3a 20 4e 61 6d 65 | 24 28 52 65 63 6f 72 64 |1 : Name|$(Record|
|00005e60| 25 29 3d a4 65 6e 74 65 | 72 53 74 72 69 6e 67 28 |%)=.ente|rString(|
|00005e70| 32 30 38 2c 35 34 30 2c | 35 34 30 2c 33 36 2c 4e |208,540,|540,36,N|
|00005e80| 61 6d 65 24 28 52 65 63 | 6f 72 64 25 29 2c 33 30 |ame$(Rec|ord%),30|
|00005e90| 2c 30 29 0d 1d ec 17 c9 | 20 32 20 3a 20 e3 20 4c |,0).....| 2 : . L|
|00005ea0| 69 6e 65 25 3d 31 20 b8 | 20 36 0d 1d f6 69 20 20 |ine%=1 .| 6...i  |
|00005eb0| 20 20 20 20 20 3a 20 41 | 64 64 72 65 73 73 24 28 |     : A|ddress$(|
|00005ec0| 52 65 63 6f 72 64 25 2c | 4c 69 6e 65 25 29 3d a4 |Record%,|Line%)=.|
|00005ed0| 65 6e 74 65 72 53 74 72 | 69 6e 67 28 32 30 38 2c |enterStr|ing(208,|
|00005ee0| 35 31 36 2d 28 4c 69 6e | 65 25 2a 34 34 29 2c 35 |516-(Lin|e%*44),5|
|00005ef0| 34 30 2c 33 36 2c 41 64 | 64 72 65 73 73 24 28 52 |40,36,Ad|dress$(R|
|00005f00| 65 63 6f 72 64 25 2c 4c | 69 6e 65 25 29 2c 33 30 |ecord%,L|ine%),30|
|00005f10| 2c 30 29 0d 1e 00 0e 20 | 20 20 20 20 20 20 3a 20 |,0).... |      : |
|00005f20| ed 0d 1e 0a 17 c9 20 33 | 20 3a 20 e3 20 4c 69 6e |...... 3| : . Lin|
|00005f30| 65 25 3d 31 20 b8 20 32 | 0d 1e 14 6d 20 20 20 20 |e%=1 . 2|...m    |
|00005f40| 20 20 20 3a 20 54 65 6c | 65 70 68 6f 6e 65 24 28 |   : Tel|ephone$(|
|00005f50| 52 65 63 6f 72 64 25 2c | 4c 69 6e 65 25 29 3d a4 |Record%,|Line%)=.|
|00005f60| 65 6e 74 65 72 53 74 72 | 69 6e 67 28 32 30 38 2c |enterStr|ing(208,|
|00005f70| 32 32 38 2d 28 4c 69 6e | 65 25 2a 34 34 29 2c 35 |228-(Lin|e%*44),5|
|00005f80| 34 30 2c 33 36 2c 54 65 | 6c 65 70 68 6f 6e 65 24 |40,36,Te|lephone$|
|00005f90| 28 52 65 63 6f 72 64 25 | 2c 4c 69 6e 65 25 29 2c |(Record%|,Line%),|
|00005fa0| 33 30 2c 30 29 0d 1e 1e | 0e 20 20 20 20 20 20 20 |30,0)...|.       |
|00005fb0| 3a 20 ed 0d 1e 28 17 c9 | 20 34 20 3a 20 e3 20 4c |: ...(..| 4 : . L|
|00005fc0| 69 6e 65 25 3d 31 20 b8 | 20 32 0d 1e 32 67 20 20 |ine%=1 .| 2..2g  |
|00005fd0| 20 20 20 20 20 3a 20 52 | 65 6d 61 72 6b 24 28 52 |     : R|emark$(R|
|00005fe0| 65 63 6f 72 64 25 2c 4c | 69 6e 65 25 29 3d a4 65 |ecord%,L|ine%)=.e|
|00005ff0| 6e 74 65 72 53 74 72 69 | 6e 67 28 32 30 38 2c 31 |nterStri|ng(208,1|
|00006000| 31 36 2d 28 4c 69 6e 65 | 25 2a 34 34 29 2c 35 34 |16-(Line|%*44),54|
|00006010| 30 2c 33 36 2c 52 65 6d | 61 72 6b 24 28 52 65 63 |0,36,Rem|ark$(Rec|
|00006020| 6f 72 64 25 2c 4c 69 6e | 65 25 29 2c 33 30 2c 30 |ord%,Lin|e%),30,0|
|00006030| 29 0d 1e 3c 0e 20 20 20 | 20 20 20 20 3a 20 ed 0d |)..<.   |    : ..|
|00006040| 1e 46 05 cb 0d 1e 50 05 | e1 0d 1e 5a 05 3a 0d 1e |.F....P.|...Z.:..|
|00006050| 64 10 dd 20 f2 73 65 61 | 72 63 68 28 53 29 0d 1e |d.. .sea|rch(S)..|
|00006060| 6e 17 ea 20 61 25 2c 62 | 25 2c 63 25 2c 64 25 2c |n.. a%,b|%,c%,d%,|
|00006070| 61 24 2c 62 24 0d 1e 78 | 0a c8 8e 20 53 20 ca 0d |a$,b$..x|... S ..|
|00006080| 1e 82 3b c9 20 31 20 3a | 20 f2 66 72 61 6d 65 28 |..;. 1 :| .frame(|
|00006090| 35 2c 31 36 2c 35 32 38 | 2c 32 32 34 2c 36 30 29 |5,16,528|,224,60)|
|000060a0| 20 3a 20 f2 74 65 78 74 | 28 32 38 2c 35 37 32 2c | : .text|(28,572,|
|000060b0| 38 2c 22 20 4e 61 6d 65 | 22 29 0d 1e 8c 3f c9 20 |8," Name|")...?. |
|000060c0| 32 20 3a 20 f2 66 72 61 | 6d 65 28 35 2c 31 36 2c |2 : .fra|me(5,16,|
|000060d0| 32 34 30 2c 32 32 34 2c | 32 38 30 29 20 3a 20 f2 |240,224,|280) : .|
|000060e0| 74 65 78 74 28 32 38 2c | 35 30 34 2c 38 2c 22 20 |text(28,|504,8," |
|000060f0| 41 64 64 72 65 73 73 22 | 29 0d 1e 96 41 c9 20 33 |Address"|)...A. 3|
|00006100| 20 3a 20 f2 66 72 61 6d | 65 28 35 2c 31 36 2c 31 | : .fram|e(5,16,1|
|00006110| 32 38 2c 32 32 34 2c 31 | 30 34 29 20 3a 20 f2 74 |28,224,1|04) : .t|
|00006120| 65 78 74 28 32 38 2c 32 | 31 36 2c 38 2c 22 20 54 |ext(28,2|16,8," T|
|00006130| 65 6c 65 70 68 6f 6e 65 | 22 29 0d 1e a0 3e c9 20 |elephone|")...>. |
|00006140| 34 20 3a 20 f2 66 72 61 | 6d 65 28 35 2c 31 36 2c |4 : .fra|me(5,16,|
|00006150| 31 36 2c 32 32 34 2c 31 | 30 34 29 20 3a 20 f2 74 |16,224,1|04) : .t|
|00006160| 65 78 74 28 32 38 2c 31 | 30 34 2c 38 2c 22 20 52 |ext(28,1|04,8," R|
|00006170| 65 6d 61 72 6b 73 22 29 | 0d 1e aa 05 cb 0d 1e b4 |emarks")|........|
|00006180| 13 e3 20 61 25 3d 31 20 | b8 20 54 6f 74 61 6c 25 |.. a%=1 |. Total%|
|00006190| 0d 1e be 0a c8 8e 20 53 | 20 ca 0d 1e c8 3d c9 20 |...... S| ....=. |
|000061a0| 31 20 3a 20 e3 20 62 25 | 3d 31 20 b8 20 a9 20 4e |1 : . b%|=1 . . N|
|000061b0| 61 6d 65 24 28 61 25 29 | 20 3a 20 61 24 3d c1 4e |ame$(a%)| : a$=.N|
|000061c0| 61 6d 65 24 28 61 25 29 | 2c 62 25 2c a9 28 53 65 |ame$(a%)|,b%,.(Se|
|000061d0| 61 72 63 68 24 29 29 0d | 1e d2 43 20 20 20 20 20 |arch$)).|..C     |
|000061e0| 20 20 3a 20 e7 20 53 65 | 61 72 63 68 24 3d 61 24 |  : . Se|arch$=a$|
|000061f0| 20 8c 20 46 6f 75 6e 64 | 25 2b 3d 31 20 3a 20 53 | . Found|%+=1 : S|
|00006200| 65 61 72 63 68 25 28 46 | 6f 75 6e 64 25 29 3d 61 |earch%(F|ound%)=a|
|00006210| 25 20 3a 20 e5 20 8d 64 | 42 5f 0d 1e dc 11 20 20 |% : . .d|B_....  |
|00006220| 20 20 20 20 20 3a 20 ed | 20 62 25 0d 1e e6 31 c9 |     : .| b%...1.|
|00006230| 20 32 20 3a 20 e3 20 63 | 25 3d 31 20 b8 20 36 20 | 2 : . c|%=1 . 6 |
|00006240| 3a 20 e3 20 62 25 3d 31 | 20 b8 20 a9 20 41 64 64 |: . b%=1| . . Add|
|00006250| 72 65 73 73 24 28 61 25 | 2c 63 25 29 0d 1e f0 2f |ress$(a%|,c%).../|
|00006260| 20 20 20 20 20 20 20 3a | 20 61 24 3d c1 41 64 64 |       :| a$=.Add|
|00006270| 72 65 73 73 24 28 61 25 | 2c 63 25 29 2c 62 25 2c |ress$(a%|,c%),b%,|
|00006280| a9 28 53 65 61 72 63 68 | 24 29 29 0d 1e fa 1b 20 |.(Search|$)).... |
|00006290| 20 20 20 20 20 20 3a 20 | e7 20 53 65 61 72 63 68 |      : |. Search|
|000062a0| 24 3d 61 24 20 8c 0d 1f | 04 2d 20 20 20 20 20 20 |$=a$ ...|.-      |
|000062b0| 20 3a 20 41 6c 72 65 61 | 64 79 25 3d 30 20 3a 20 | : Alrea|dy%=0 : |
|000062c0| f2 63 68 65 63 6b 28 61 | 25 2c 41 6c 72 65 61 64 |.check(a|%,Alread|
|000062d0| 79 25 29 0d 1f 0e 43 20 | 20 20 20 20 20 20 3a 20 |y%)...C |      : |
|000062e0| e7 20 41 6c 72 65 61 64 | 79 25 3d 31 20 8c 20 46 |. Alread|y%=1 . F|
|000062f0| 6f 75 6e 64 25 2b 3d 31 | 20 3a 20 53 65 61 72 63 |ound%+=1| : Searc|
|00006300| 68 25 28 46 6f 75 6e 64 | 25 29 3d 61 25 20 3a 20 |h%(Found|%)=a% : |
|00006310| e5 20 8d 64 42 5f 0d 1f | 18 05 cd 0d 1f 22 18 20 |. .dB_..|.....". |
|00006320| 20 20 20 20 20 20 3a 20 | ed 20 62 25 20 3a 20 ed |      : |. b% : .|
|00006330| 20 63 25 0d 1f 2c 33 c9 | 20 33 20 3a 20 e3 20 63 | c%..,3.| 3 : . c|
|00006340| 25 3d 31 20 b8 20 32 20 | 3a 20 e3 20 62 25 3d 31 |%=1 . 2 |: . b%=1|
|00006350| 20 b8 20 a9 20 54 65 6c | 65 70 68 6f 6e 65 24 28 | . . Tel|ephone$(|
|00006360| 61 25 2c 63 25 29 0d 1f | 36 31 20 20 20 20 20 20 |a%,c%)..|61      |
|00006370| 20 3a 20 61 24 3d c1 54 | 65 6c 65 70 68 6f 6e 65 | : a$=.T|elephone|
|00006380| 24 28 61 25 2c 63 25 29 | 2c 62 25 2c a9 28 53 65 |$(a%,c%)|,b%,.(Se|
|00006390| 61 72 63 68 24 29 29 0d | 1f 40 1b 20 20 20 20 20 |arch$)).|.@.     |
|000063a0| 20 20 3a 20 e7 20 53 65 | 61 72 63 68 24 3d 61 24 |  : . Se|arch$=a$|
|000063b0| 20 8c 0d 1f 4a 2d 20 20 | 20 20 20 20 20 3a 20 41 | ...J-  |     : A|
|000063c0| 6c 72 65 61 64 79 25 3d | 30 20 3a 20 f2 63 68 65 |lready%=|0 : .che|
|000063d0| 63 6b 28 61 25 2c 41 6c | 72 65 61 64 79 25 29 0d |ck(a%,Al|ready%).|
|000063e0| 1f 54 43 20 20 20 20 20 | 20 20 3a 20 e7 20 41 6c |.TC     |  : . Al|
|000063f0| 72 65 61 64 79 25 3d 31 | 20 8c 20 46 6f 75 6e 64 |ready%=1| . Found|
+--------+-------------------------+-------------------------+--------+--------+